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PDP-8 SERIES OF HINI-COMPUTERS. “FOCAL” HAS HISTORICALLY BEEN A LAN- 
GUAGE FOR BEGINNERS (A LA “BASIC’) AND A LANGUAGE USED BY THE EXPERT- 
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MICROPROCESSOR. 


THIS USER’S GUIDE IS PRESENTED IN A “LET“S TAKE A GUIDED TOUR OF 
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ASK AX A “TEXT”, X; 


COMMENT 2.35 C THIS STEP WILL NOT EXECUTE 


Do D110 D 22.35 
ERASE E E12 
FOR F I=1,10;T “LOOP”, ! 
co 6 G 2.75 
IF I (X) 2.1, 2.2, 2.3 


MODIEY M155 
oN ON (xX) 1, 2, 3 
Quit Q 


RETURN R 


SET S X=23+(2*B) 
TYPE TA,B/C 1 X-¥ 
WRITE W wW3 


ABSOLUTE VALUE 


RETURN INTEGER 


INPUT ASCII CHAR. 


‘PEEK’ OR ‘POKE! 


CONSOLE ECHO CTRL 


SET INPUT DEVICE 


SET STRING LENGTH 


READ CHARS. FROM INPUT 


INITIALIZE INPUT DEVICE 


SET CONSOLE 


E 22.35 § ALL 


FI 


72,10;T “EVENS”,I,! 


I (¥-X) , 3.1;T “> THAN”, | 


S X=FRAN(1) 
T 3c T “HELLORLD”, ! 


W 6.2 


RANDOM RUMBER 0-.99999 
RETURN ROUNDED INTEGER 
OUTPUT ASCII CHAR. 

USER SUBROUTINES 
INTERRUPT SERVICE 

SET OUTPUT DEVICE 
COMPARE STRINGS 

SEND STRING TO OUTPUT 
INITIALIZE OUTPUT DEVICE 


SET CURSOR 


ec 


+c 
ac 
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FOCAL MUST BE GIVEN 'COMMANDS' IN ORDER TO ACTUALLY ACCOMPLISH 
SOMETHING USEFUL 70 THE USER. THESE COMMANDS INSTRUCT FocaL TC 
PERFORM & SPECIFIC OPERATION OR SERIES OF OPERATIONS, THE FOCAL 
‘SYSTEM, WHICH RESIDES IN THE COMPUTER'S MEMORY, HAS BEEN 
DESIGNED’ TO UNDERSTAND 4 SPECIFIC SET OF COMMANDS, ANY COMMAND 
THaT YOU GIVE TO FOcak MUST BE ONE OF THESE SPECIFIC COMMANDS 
THAT IT WAS DESIGNED TO RECOGNIZE, IF YOU TRY TO Gtve 

FOCAL OTHER COMMANDS, IT WILL NOT KNOn HOW TO INTERPRET THEM, 


ONE OF THE MOST USEFUL COMMANDS IS THE 'TYPE' COMMAND, THE 
‘TYPE! COMMAND ALLOWS THE USER TO GIVE FOCAL aN ARITHMETIC 
EXPRESSION, HAVE FOCAL EVALUATE IT, AND TYPE THE RESULTANT VALUE 


8C ON THE USER'S OUTPUT DEVICE, SOME SIMPLE EXAMPLES FOLLOW: 
. 
TYPE ted 
2.0000 
. 
®C LET US LOOK AT THE ABOVE ITYPE? COMMAND, THE USER ENTERS THE 


c 


COMMAND BY TYPING "TYPE dea1, AND THEN STRIKING THE "CARRIAGE RETURN? 
KEY ON KIS KEYBOARD, THIS KEY IS SOMETIMES LABELED AS 

"RETURN, FOCAL DOES NOTHING WITH THE COMMAND UNTIL THE 'RETURA' 

KEY IS STRUCK. AT THAT POINT, FOCAL THEN TRIES TO [INTERPRET THE 
COMMAND AS ONE OF THOSE THaT IT HAS BEEN DESIGNED TO RECOGNIZE 

(SUCH AS 'TYPE') AND THEN DOES THE APPROPRIATE THING THaT THE 
COMMAND INDICATES To DO, IN THIS CASE, FOCAL WAS TOLO To EVALUATE 
THE ARITHMETIC EXPRESSION "ied! AND TYPE THE RESULTANT VALUE TO 

THE OUTPUT DEVICE, IT DID THIS, SINCE THE VALUE 12,808" APPEARED 

ON THE OUTPUT DEVICE, AT THAT POINT, FOCAL HAD ACCOMPLISHED EVERYTHING 
THAT THE COMMAND INDICATED, SO IT OUTPUTS THE ‘et CHARACTER, WHICH 
1S A PROMPT, TELLING THE USER THAT IT HAS NOTHING MORE To 00. 

FOCAL _THEN WAITS FOR THE USER TO ENTER A NEW COMMAND. A ‘BLANK? 
(SPACE BAR) MUST ALWAYS FOLLOW A FOCAL COHMAND, SINCE THIS 1S 

USED TO SEPARATE THe COMMAND NAME (SUCH AS 'TYPE') FROM THE REST 

OF THE INFORMATION ON THE LINE (SUCH AS "dea'), HOWEVER, THE CCMMANC 
NAME (SUCH AS 'TYPE') NEEDS ONLY TO BE EXPRESSED AS A SINGLE 
CHARACTER CIN THIS CASE 'T') IN OROER FOR FOCAL TO UNDERSTANC 

WHICH COMMAND IT IS, SOME MORE EXAMPLES FOLLOW! 


tet 
2.2008 
243 

5.0008 

2e204 

a.20007 se4 
2.0007 263 
5.20007 26204 
8.00 
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"2 AS YOU CAN SEE, IF 1 JUST STRIKE THE ‘RETURN’ KEY, WITHOUT 
#2 TYPING A COMMAND OF SOME KIND, THEN FOCAL HaS NOTHING TO DO, ANC 
*C SIMPLY PROMPTS AGAIN WITH THE '#', SOME MORE EXAMPLES OF THE 
©¢ "TYPE! COMMANDS 


AS YOU CAN SEE, SEVERAL DIFFERENT ARTTRHETIC OPERATIONS CAN BE 
PERFORMED BY FOCAL, THESE ARE ADDITION, SUBTRACTION, OIVISICN, PULTI= 
PLICATION, AND EXPONENTIATION (RATSING TO A POWER). THESE OFERATICNS 
ARE INDICATED BY THE SYMBOLS # 4 ©, / , @ 4 ¢ , RESPECTIVELY. 

WHEN THESE OPERATIONS ARE MIXED WITHIN A GIVEN EXPRESSION, THERE 

18 A HIERARCHY RULE WHICH FOCAL USES TO DETERMINE THE ORDER IN KHICH 
IT IS TO PERFORM THe OPERATIONS. FOCAL WILL PERFORM ANY EXPORERTIATION 
FIRST (9)4 THEN ANY MULTIPLICATION (#)y THEN ANY DIVISION (/)4 THER 
ANY SUBTRACTION (=), AND FINALLY ANY ADDITIONS (+). SOME EXAMPLES 
ILLUSTRATING THIS RULE FOLLOWT 


14304 
13.2000 


et 2938/4 
1.2508 


eT 3-2 
1.0008 


aT 2-3 
71,0808 


aT -2-374 
72.7508 


eT 3905/2 
7.5000 

aT 3057202 
9.5008 


aT 24/304 
2.200 
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a THE USER MAY INDICATE THAT & CERTAIN GROUP OF OPERATIONS IS 
#C TO GE PERFORMED FIRST, HE DOES THIS BY ENCLOSING THAT GROUP OF 

#C OPERATIONS WITHIN PARENTHESES, THERE MAY BE MORE GROUPS ENCLOSED 

#0 WITH PARENTHESES WHICH ARE CONTAINED WITHIN A GROUP ALREADY ENCLOSED 
40 WITHIN PARENTHESES, IN THIS CASE, FOCAL WILL PERFORM THE 

9C OPERATIONS WITHIN THE MOST DEEPLY NESTED (INNERMOST) PARENTHESES 

#C FIRST, THEN THOSE IN THE NExT OUTER, AND SO ON, UNTIL THOSE AT THE 
#C OUTERMOST LEVEL ARE DONE LaST, HERE AF: SOME EXAMPLES To CLARIFY 
#C THIS RULED 


aT tet 
2.0008 


#7 (101) 
2.0008 


et 24/304 
2.2008 


eT (24/3004 
32.0808 


#7 19(20(304)) 
15.0008 


ot pes 
8.o008 


oT 200-3) 
a.1256 


or 1/8 
2.1250 


OT 16(246 504) 4390(472)) 
21.0008 


oc MESSAGES MAY ALSO BE OUTPUT BY USING THE 'TYPE" COMMAND. 

#6 BY SIMPLY ENCLOSING A SERIES OF CHARACTERS INSIDE OF DOUBLE 

#C QUOTATION MARKS ("), THE 'TYPE' COMMAND WILL OUTPUT THE 

#C SERIES OF CHARACTERS JUST aS THEY APPEAR INSIDE THE QUOTATION 

*C MARKS, SOME EXAMPLESI 

eT "HI THERE" 

HI THERES 

eT "NOW IS THE TIME FOR ALL GOOD HEN TO COME To THE AID OF THEIR CCLNTRY" 
NOW IS THE TIHE FOR ALL GOOD MEN TO COME TO THE AID OF THEIR COLNTRY® 


. 
#7 "ANY SERIES OF CHARACTERS” 
ANY SERIES OF CHARACTERS® 
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“c THE USER MAY INSTRUCT THE 'TYPE' COMMAND TO PERFORM SEVERAL 
“C FUNCTIONS BY SEPARATING EACH FUNCTION FROM THE NEXT WITH 
#C A COMMA (, ), SOME EXAMPLES FOLLOW: 
aT 162,2/3,402 
2.000 ©8867 46, Boe 
. 
47 "THE ANSWER 18", 202 
THF ANSHER IS 4,000 


#7 "FIRST ANSWER IS",3-2," SECOND ANSWER IS") 5/2u4 
FIRST ANSWER IS 1.00 SECOND ANSWER I$ 3, Sad 


“eC AS YOU CAN SEE, THIS CAPABILITY ALLOWS OUTPUT FROM THE 

COMPUTER TO BE MADE MORE LEGIBLE. SOMETIMES 17 IS 

DESIRABLE TO WAVE CONTROL OVER THE LINE SPACING ON THE OUTPUT 
DEVICE, IN ORDER TO MAKE THE OUTPUT APPEAR MORE LEGIBLE, THERE 

ARE SPECIAL FORMAT CONTROL CHARACTERS WHICH FOCAL RECOGNIZES WHEN 
THEY APPEAR IN A 'TYPE' STATEMENT WHICH ALLOW THE USER To 09 THIS 
KIND OF FORMATTING, ONE SUCH CHARACTER IS THE EXCLAMATION MARK (1), 
WHEN FOCAL ENCOUNTERS THIS CHARACTER IN A ‘TYPE! STATEMENT, IT CUTPUTS 
A CARRIAGE RETURN CHARACTER, FOLLOWED BY A LINE FEED CHARACTER, TO 
THE OUTPUT DEVICE, THIS CAUSES A RETURN TO THE BEGINNING OF THE 
GUPRENT LINE, AND AN ADVANCING TO THE NEXT LINE ON THE QUTPUT 
DEVICE. THE POUNDS CHARACTER (#), WHEN ENCOUNTERED IN a 'TYFE! 
STATEMENT, CAUSES A CARRIAGE RETURN CHARACTER TO BE OUTPUT, BUT 
THAT'S ALL, THE EFFECT IS THAT THE CARRIAGE IS RETURNED 

gut THE LINE 1S NOT ADVANCED, HENCE, ANY FURTHER OUTPUT WOULD CCCUR 
ON THE SAME LINE, POSSIBLY OVERPRINTING EXISTING OUTPUT, SOME 
EXAMPLES FOLLOW! eens Wee es ie aS Pa 


detel 
2.000 
oT tet te2e8e! 

2.000 

8.200 
aT "THE ANSWER IS "/3eq,1,"THE VALUE OF THE DISTANCE I8",4¢3,1 
THE ANSHER IS 12.000 
THE VALUE OF THE DISTANCE 1S 64,808 


areresserir intl 
2.008 


8.000 
eT "HIME," THEREN,E 
THERE 


eT MHIM, 
HI THERE 


THERE", 1 


etait” x yy bezossas5ett 


x y 
5.002 =, Bae 
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THIS CAPABILITY ALLOWS FOR MAKING VERY READABLE OUTPUT, 


SOMETIMES IT IS USEFUL TO HAVE FOCAL REMEMBER THE RESULT OF AN 
ARITHMETIC CALCULATION, THIS RESULT MAY THEN BE USEO LaTER INSTEAD 
OF HAVING TO RE-OO THE CALCULATION OVER AGAIN, THIS CAPABILITY 18 
ACCOMPLISHED THROUGH THE USE OF 'VARI/OLE NAMES!, 4 NAME 
MAY BE ATTACHED TO THE RESULT, OR PAFITAL RESULT, OF AN ARITHMETIC 
CALCULATION, IF THE NAME I$ USED LATER IN SOME OTHER CaLCULATICK, 
THEN THE VALUE ASSOCIATED WITH THAT NaME IS SUBSTITUTED IN PLACE OF 
THE NAME, IN FOCAL, A VARIABLE NAME MUST BEGIN WITH 4 LETTER OF 
THE ALPHABET (4-2), QUT MAY NOT BEGIN WITH THE LETTER ‘Fr (TRIS LETTER 
HaS A SPECIAL SIGNIFICANCE, DISCUSSED LATER), A VARIABLE NAME FAY ALSC 
HaVE AN OPTIONAL SECOND CHARACTER, WHICH MUST BE 4 DIGIT INTHE RANGE 
OF @=7, WHEN THE OPTIONAL DIGIT 18 OMITTED, THEN 'B' 18 
ASSUMED AS THE DIGIT. THUS, 'AS's 'B7', 161, "B21, AND 1RE ARE 
VALID NAMES, WHILE SUCH NAMES AS, *F21) +o) "aBY RE NOT vabIO 
NAMES FOR VARIABLE QUANTITIES, THE TERM 'VARTABLE’ IS USED, BECAUSE, 
AT SOME LATER TIHE, THE SAME NAME MAY BE ASSOCIATED WITH A NEW CUANTITY, 
THUS A NAME'S VALUE MAY 'VARY!, PROM TINE TO TIME, SOME EXAMPLES 
WILL HELP To cLaRIFy THISI 


2.000 
Xekete! 

3.302 
Xt 


3.000 5,800 
xy 

8.000 
XakedsYa¥ed st 

4.000 © 6,000 
XY 

4.008 6, 860 
1172s! 

14503 
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5.000 
aT AL OYOT 
5.200 4,008 «6.000 


ALAM ALO XE KIM Vay tt 

Als «54700 Xe 4,00 Ye 6.008 
* 2 

OT LEMALEM ALS LeMKMMX, Lamvam yet 


Ale 5.908 
xe 4,003 
ys 6,009 


#C IN ORDER TO MAKE THE ABOVE HORE PRETTYT 
. 

OT EMALAM ALE AMX AMX EAM Om Ye tt 

Ain 5028 


ks 44238 
Yu 64798 
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AS YOU CAN SEE, THE VALUES CURRENTLY ASSIGNED TO THE NAMES 
‘at's 'X') AND 'Y' WILL BE RETAINED BY FOCAL FOR USE IN LATER EXPRESSIONS, 
ALSO NOTE THAT THE TWO NAMES 'A' AND 'AQ' ARE ONE AND THE SAME, 
SOME MORE EXAMPLES! 


As3t2st 
9.098 
oT ae! 
9.900 
eT Ags! 
9.003 


eT AvRABeL a! 
10.200 

#T ABsAYT 
12.082 19,000 


#7 2eCaenret 
22.000 


oT 2eaedet 
21.000 


10.000 44.0 


oT 2ecasaed ys! 
22.988 


oT AL 
11.008 


aT AL Xe det 
3.000 11,005 6.800 1,000 


eT Ate 
2.008 

aT AL KeVoAat 
2.000 ° 2,000 «3.808 2,8 


BrUresen 
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“c ANY TIME a PARTIAL EXPRESSION NEEOS TO BE REMEMBERED, JUST 
4¢ SET A VARIABLE NAME EQUAL TO THE PARTIAL EXPRESSION, REHEMBER THAT 
#C IN ALL CASES, FOCAL CAN BE FORCED TO PERFORM THE APPROPRIATE 
#C EXPRESSION EVALUATION AND NaNE SUBSTITUTION, THROUGH THE PROPER 
#C USE OF PARENTHESES, 
#0 ___ IF THE USER WANTS TO EVALUATE AN EXPRESSION, BUT DOES NOT ANT 
#C THE RESULT TYPED OUT, THEN WE MAY USE THE FOCAL COMMAND 'SET', THIS 
#¢ FOCAL COMMAND PERFORMS ANY VARIABLE NAME SUBSTITUTIONS, JUST LIKE THE 
C ‘TYPE! COMMAND, BUT DOES NO QUTPUT, SOME EXAMPLES OF THE ‘SET! COMMAND 
. 
set 
. 
#¢ NOTICE THAT NO OUTPUT 18 DONE. HOWEVER! 
. 
eT Xt 

1,508 


*C THE 'SET! COMMAND CAN BE ABBREVIATED TO A SINGLE LETTER 1S’, 

*C (NOTE! ALL FOCAL COMMANDS CAN BE ABBREVIATED TO A SINGLE LETTER), 
#0 SOME MORE EXAMPLES OF 'SET?) 

S Xateted 


at x! 
3.909 


#9 Xe1, Ye2,203 


OT XY Eel 
1.908 «2,000 3.808 


aT XexXe7at 
4.008 


OT XY Bat 
8.900 «62,0805, BOS 


OS AL=KeL 


AT AL Ks Ye BVAT 
9.500 = 8,080 = 2,808 = 3,008 = 2, OBB 


*S tot 


OT ALOE 
9.500 


+000 3.808 3,000 


NOTE? SINCE NO SUBSTITUTION TOOK PLACE IN THE 'S 1047 COMMAND AGOVE, 
THEN THE COMMANO SIMPLY EVALUATED THE EXPRESSION '4+1' ANC DID 
“Cc NOTHING WITH THE RESULT! 
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A FEW MORE EXAMPLES: 
asx 


ALeXsV Bek 
9.502 


1090 © «2,00@ 03,0088. 000 
AnYeBmas 


ALKY Bede 
9.502 = 8,000 «9508.9, 508 9 508 


VARIABLE NAMES (SUCH AS TAL", 'X!, 'Y1, 121,141) CAN HAVE "SUBSCRIPTS! 
ASSOCIATED WITH THEN, A SUBSCRIPT IS ESSENTIALLY AN ‘ITEM! CR ELEMENT! 
NUMBER WHICH NAY FURTHER DEFINE THE VARIABLE, FOCAL SUBSCRIPTS ARE 
ROUGHLY ANALOGOUS To THE MATHEMATICAL SUBSCRIPTS USED IN ALGESRA, 17 
IS USEFUL, SOMETIMES, TO DEAL WITH SPECIFIC ITEMS OF 4 GIVEN NAME, 

FoR INSTANCE, IF THe NAME ‘C' REPRESENTED THE CHAIRS IN 4 ROCM, THEN 
‘o(e)* (tot SUBSCRIPT 'o') MIGHT REPRESENT THe EEROTH CHgIR IN THE RCOM, 
(COMPUTER PROGRAMMERS SOMETIMES COUNT £,1,2,,,. INSTEAD OF 1023), 
"CCAD! NIGHT REPRESENT THE NEXT, 'C(2)" MIGHT REPRESENT THE 

NEXT, AND 'C(N)' NIGHT REPRESENT THE 'NTH’ CHAIR» IF THERE HERE AT 
LEAST 'N! CHAIRS IN THE ROOM, SUBSCRIPTS IN FOCAL HAY BE ANY 

VALUE IN THE RANGE OF =32767 TO +32767, SONE EXAHPLES SHOULD HELP 

To CLARIFY SUBSCRIPTS? 


xCDas 


xed 
5.908 

Xt 
8.008 


NOTE THAT X, AND XC4) ARE OFFFERENT!. IN Fact, IF A SUBSCRIFT 1S 
OMITTED, THE VALUE OF @ 18 ASSUMED, THUS X ANOX(B) ARE ONE ANC 
THE SAME, MORE EXAMPLES! 


XCOret 
8,000 


XaXed 


XKCD 
9.000 © 9.000 
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#C A USEFSL OPTION IN THE TYPE! COMMAND IS THE '$! OPTION, WHEN & 
#6 'g' TS ENCOUNTERED IN A ‘TYPE? COMMAND, FOCAL PRINTS ALL OF THE 
#0 VARIABLE NAMES, THEIR SUBSCRIPTS, AND THEIR CURRENT VALUE. 

#C MONE EXAMPLES? 

. 

ats 


xe =e -9,088 
yac 2s 9,508 
Alc De 94508 
AB¢ De = 9,598 
20¢ 0s «9,508 
xoC 1) 5,908 


eT EMMY VARIABLES ANO THEIR VALUES ARES", 1,S.01 
MY VARIABLES AND THEIR VALUES AREt 


xac as 9,208 
yor = 9,588 
Alc @)= 9,808 
age as 9,508 
aot cs «9,508 
xo¢ ibe 5,008 


#¢ NOW IT BECOMES EVIDENT THAT X ANO XB ARE THE SAME, ACTUALLY+ 
Cx, x@, AND X@(O) ARE ALL ONE ANO THE SAME VARIABLE NAME, 
#C MORE EXAMPLES? 

©S X(D)BLD (AUG K(ZEBXCSI ET 

. 

aT S 

xa¢ a= 10,808 

yec )e 9,508 

ALC ods 9,508 

Adc Be 95S 

231 Oe == 9,500 

X8C = 9,808 

Xa 202 8,088 


Xo¢ 3) 7,088 
° 


ER) 
° 
oT 
. 
oc 
. 
8 


4 
oT 


xo¢ 
xa 
xa¢ 
XC 
xa¢ 
xa¢ 
xae 
xXOe 
xoe 
OC 
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THE ORDER IN WHICH THE VARIABLES APPEAR WHEN PRINTED WITH THE "$1 

OPTION OF 'TYPE' IS THE ORDER IN WHICH THEY WERE FIRST GIVEN VALUES, 

IF A VARIABLE NAME 1S USED IN A FOCAL STATEMENT WITHOUT HAVING EEEN 
PREVIOUSLY GIVEN & VALUE, 17 1S DEFINED AT THaT POINT AND GIVEN THE 
VALUE OF ZERO, THE 'ERASE' COMMAND, ABBREVIATED 'Et CAN BE 

USED TO ERASE ALL DEFINED VARIABLES AND THEIR VALUES, HENCE IMPLICITLY 
DEFINING ALL THE VALUES TO BE ZERO, ()ORE ON THE ‘ERASE! COMMAND LATER), 


MORE EXAMPLES! 


ASE 
s 


NOTE THAT THERE ARE NOW NO DEFINED VARIABLE NAMES, 
T KCB ELOSXC1 99X02) 8B AKC SIO XCM IHG, X(5) 9B, KC6IN4 X(T) eS XCBIE2 XG DSL 
s 


. 
#3 NENA3 
ats 


xoC @= 10,800 
xac 1)2 9,208 


XO( 2) 8,208 
xo 32 7,008 
Xoc 4)= 6,880 


X30 5)= 5,008 
x3 6)2 4,808 
x20 723,008 
xar B)= 2,008 
xac 9)" 4,008 
Nac os = 2,000 
. 
oT xCND a! 
8.008 
eT x(2det 
8.200 
. 
eT X(NeL IT 
7.089 


. 
eT XCND¢dT 
9.280 

. 
eT XeNea dot 
9.088 
. 
Ts 
xXO¢ oD 
XC 4s 
xOC 208 
X@( 3)e 
XO¢ ade 
XO¢ 5)e 
Xa 68 
XO¢ 78 
XOt Bde 
xB 9) 
Nae Ode 
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. 
OS X(9D8KC6)od 
ors 


x2¢ 2)= 16,020 
Xa 189,000 
xor 2) 81308 
xac 387,008 
xc 486,000 
x0 5) 5,200 
xa¢ 6) 

XO 7)" 3,808 
xOC Be 2,000 
xa 9s 5,200 
No as 2,008 


. 
09 X(9) Ned 

. 

ers 

Ker ods 40,000 
Xec 1) 9,008 
XOr Ze 8,008 
kee 302 7,008 
Kee 4) 6,008 
xO( 5s 3,008 
xa¢ 6)s 4,008 
X8c 7s 3,000 
X@¢ Be 2,08 
xO = 4,000 
Nace) = 2,008 


. 
@C OK, WATCH THIS CAREFULLY! 


XN! 
8.008 


. 
OT XCXONDD 
2.0088 


. 
aT xCaret 

2,080 
. 
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. 
*C ANY ARITHMETIC EXPRESSION IN FOCAL IS DIRECTLY REDUCIBLE TO 

*C a SINGLE NUMBER, THUS, A SUBSCRIPT CAN BE A CONSTANT (SUCH AS 12"), 
*C OR A VARIABLE (SUCH AS 1X! OR 'B(N)'), OR AN ENTIRE 

#C EXPRESSION (SUCH AS '1e20X"), SINCE ALL_OF THESE ARE DIRECTLY 
REDUCIBLE TO A SINGLE NUMBER, IF THAT SINGLE NUMBER [S WITHIN 

THE RANGE OF ~32,767 70 «32,767, THEN IT MAY BE USED AS 4 SUBSCRIPT, 
#C FOCAL TRUNCATES (DROPS) ANY FRACTIONAL PART NF THE NUMBER BEFORE IT 
aC USES IT AS & SUBSCRIPT, 


. 
*C MORE EXAMPLES: 
« 

ats 
xa Ode 
Kot 1) 
2¢ 2) 
xO¢ 308 
ane ade 
xa¢ 5) 
x3( 608 
xaC 7) 
xo¢ Be 
xd 9)= 
NOC Ede 


ats 


xoe 
x3t 
xae 
xae 
xae 
xa¢ 
ac 
xee 
xB¢ 
xBe 
Nac Ode 
ye(1o9ade 20,800 
. 


J(2g00) wae 
Ts 


x20 M2 40,008 
X40 42 9,048 
X2¢2)2 8,000 
xO¢ 
xe 
xoe 
x24 
xa 
xa¢ 
xB¢ 
Noe 
J3(1090)8 29,008 
Jac2eaa)e 40.000 
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. 
#C IT IS_NOT NECESSARY (AS IN SOME OTHER COMPUTER LANGUAGES) TO 

"C DEFINE THE INTERVENING SUBSCRIPTED VALUES, IN ORDER TO USE & 

*C PARTICULAR VALUE, THUS, FOCAL ARRAYS (VARIABLES WITH SUgSCRIPTS) 
#C ARE CONSIDERED TO BE 'SPARSE', 

*C MORE EXAMPLFS: 

. 

4 

Ts 

S KCnABI ELK (99982 0K (241294 K (2400882222, K8S 

ats 


Kot-1@)= 4,008 
K2(-9)s 2,008 
Ko¢-1)8 9,008 
Ka(-4008)2 2222,000 
kat Gs 3,088 


* 
9S KiC AB OL KA (982 KL Cad) BR IKS (4008) 92222 KI193 
ers 


Kat-10)" 4.000 
KO(-9)e 2,088. 
Kor-1)2 9,008 
KO(=4008)" 2222, 006 
kor ge 3,088 
Kit-18)" "4.908 
K1(-9)e 2,000 
Kit-1)8 9,000 
K1(-400)" 222 
Kit aa 3,300 
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*C THIS SHOWS THAT THE VARIABLE NAMES 'K! AND "Ka! ARE THE SAME. BLT 
#C ARE DIFFERENT FROM "KAT, 
*C MORE EXAMPLES! 


of 
ats 


#S Ned 
oT Ss 


NOC BS 4,908 
. 

#S Meio 

ary 


NOC os = 4,008 
Mac 8) = 18,040 


aT B(1) 0802) ,8(3: 
2.000 8 


“Ts 


Nec a= 4,086 
Mac de 49,090 
82 1)8 8,008 
Bac 2)= 8, 00a 
Bac 3)2 = 8,098 
« 


. 
*¢ THIS SHOWS THaT IP A VARIABLE NAME HAS NOT BEEN PREVIOUSLY ASSIGNED 
“CA VALUE, THAT IT TS ASSIGNES THE VALUE OF @ERO THE FIRST TIME TraT 
#C THE USER REFERS TO THE NAME. 

. 

. 
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“ce NOTICE THaT WHEN NUMBERS ARE OUTPUT BY FOCAL, THEY ARE OUTPLT 
@C IN A CERTAIN FORMAT, SOMETIMES THE USER WOULD LIKE TO CHANGE TE 
#5 FORMAT IN WHICH FOCAL OUTPUTS NUMBERS, THIS IS ACCOMPLISHED USING 
THE '%' (PERCENT) OPTION OF THE 'TYPE' COMMAND. THIS OPTION ONLY 
ESTABLISHES THE FORMAT THaT SUBSEQUENT NUMBERS WILL BE OUTPUT IN, AUT 
DOES NO ACTUAL OUTPUT ITSELF. ONCE THE OUTPUT FORMAT IS SET» ALL 
SUBSEQUENT NUMBERS WILL BE OUTPUT IN THAT FORMAT UNTIL THE FORMAT 
TS CHANGED WITH ANOTHER 'X' OPTION TC THE ‘TYPE! COMMAND, ThE 'x! 
OPTION MAY QE INTERSPERSED WITH OTHER OPTIONS OF THE 'TyPE' COMFAND 
JUST LIKE 'gt,'!', AND '#', WHEN THE 'x' Is ENCOUNTERED IN A ‘TYPE? 
COMMAND, A NUMBER OF THE FORM 'BB.AA' IS ASSUMED TO FOLLOW IT, 

THE 'BB' (20099) INDICATES HO MANY DIGITS ARE TO BE OUTPUT EEFCRE 
THE DECIMAL POINT (THE INTEGER PORTION OF THE NUMBER OUTPUT). THE 
"ak! (83=99) INDICATES HOW MANY DIGITS ARE TO BE OUTPUT FOLLOWING 
THE DECIMAL POINT (THE PRACTIONAL PORTION OF THE NUMBER OUTPLT), 

IF tAM' TS ZERO, THEN NO DECIMAL POINT IS ACTUALLY OUTPUT. 

THE ACTUAL MUNBER OF CHARACTERS OUTPUT DOES NOT INCLUDE THE DECIMAL 
POINT, NOR THe ‘=! SIGN PRECCEDING THE NUMBER (IF ITS NeGaTiVe), 
NOTE THAT 'N5.@3' MEANS FIVE DIGITS BEFORE THE DECIMAL POINT, AND 
THREE DIGITS AFTER THE DECIMAL POINT. 'N5.3' OR 'KS.30' MEANS 
FIVE DIGITS BEFORE AND THIRTY DIGITS AFTER THE DECIMAL POINT, THE 
NUMBERS USED IN ACTUAL CALCULATIONS ARE MAINTAINED 70 aBpgUT 

6 OIGITS OF SIGNIFICANCE, THEY MAY LIE WITHIN THE RANGE OF 
10t(~38) TO ia+(+36 SOME EXAMPLES SHOULD HELP CLARIFY THE 

‘x" OPTION TO THE 'TYPE' COMMAND. 


tetet 

2.088 

of 99.1 
99.008 

oT K2.03;4e4! 

2.000 


2 
OT 96.1971 98D 
96.000 


Deter dded 
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“ NOTICE THAT FOCAL WILL ALWAYS OUTPUT THE INTEGER PORTION OF THE 
NUMBER, EVEN THOUGH IT MIGHT NOT BE ABLE TO FIT IN THE NuMBER OF 
DIGITS THE USER HAS ASKED FOCAL TO PLACE BEFORE THE DECIMAL POLAT. 
THIS AT LEAST ALLOWS THE USER TO SEE THE NUMBER, EVEN THOUGH THE 
DECIMAL POINTS WILL NO LONGER LINE UP IN COLUMN DATA. 

MORE EXAMPLES: 


bes! 
003 


HSA 


*C NO OUTPUT WAS DONE IN THIS CASE, BUT A NEW OUTPUT FORMAT WAS 
*C SPECIFIED, MORE EXAMPLES! 


OT 6e6,! 
12.008 


oT 2.34501 
26348 


eT 2.34561 
Eeerry 


#C NOTICE THAT THERE WaS MORE FRACTIONAL PART IN THE NUMBER THAN ThE 
@C OUTPUT FORMAT SPECIFIED TO QUTPUT, IN THIS CASE FOCAL WILL ROUKD 
®C SEFORE OUTPUTTING THE VALUE, NOTE THAT THE ACTUAL VALUE OF THE 

*C NUMBER THAT FOCAL HaS STORED AWAY INTERNALLY HAS NOT BEEN CHANGED, 
®C THE ROUNDING WA” ONLY DONE FOR THE OUTPUT OPERATION, MORE EXAMFLEST 


. 
OSET Xe2,3456 
aT Xe! 

2-346 


eT X5.041%01 
2.3436 


aT K5.02.%01 
2.35 


. 
aT M5.OL0Xed 
2.3 
oT X50 Kot 

2 
aT x5.04sXst 


2.3456 
. 


. 
c 
* 
. 

os 
oT 


. 
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x=2.78 


Xt 
2.7800 


R5.O2sKe! 
2.78 


KS.010K0! 
2.8 


KS.00sXet 
Fi 


Xa4 


NB.O3sKit 
4.008 


X5.30K01 
4. CepoeperasonasegeoneneeoDaaOe 


K5.03sX0t 
4,098 


IT [3 NOT NECESSARY POR THE VALUE FOLLOWING THE 'N* To BE A CONSTANT 
(SUCH AS '5,08'), BUT CAN BE ANY ARITHMETIC EXPRESSION, FOCAL 
WILL EVALUATE THE EXPRESSION, REOUCE IT TO a NUMBER OF THE FORK 
"Ba, AA" ANO USE THAT VALUE aS THE FORMAT SPECIFIER, SOME EXAMPLES? 


xe, 02 


Xt 
3.020 


CURRENT OUTPUT FORMAT IS STILL '5,05* FROM ABOVE, 


wets! 
2,008 


ere) 
3.0¢ 


TRE OUTPUT FORMAT Is NOW 'S\02'» BEGAUSE THAT IS THE VALUE OF ‘xt 
MORE EXAMPLES: 


XeXet 


XX tedel 
2.008 


- PAGE 20 - 


ats 


xg¢ ye 


4402 


#0 THE OUTPUT FORMAT Is NOW '4,@2', BECAUSE THAT IS THE VALUE OF "x. 


4 
#C WATCH THIS ONE CAREFULLY! 
AT KXSK+ O4ed044! 

2.900 
ats 


xoe Be 
* 

. 
“Cc 
“e 
“c 
“ 
« 


4.030 


THE 
So_THE 
BEFORE 
POINT, 


OUTPUT FORMAT WaS SEt TO 'X! 


MORE EXAMPLES! 


. 
ata 


aT MS.O3, 464, 
2.008 


* 


OUTPUT FORMAT TS NOW "4.83", WHICH MEANS THAT FOUR DIGITS AI 
THE DECIMAL POINT, AND THREE OIGITS aRE OUTPUT AFTER THE DECIMAL 


(AFTER 'X! WAS INCREMENTED BY 01). 
OUTFUT 


. 
“ 
“C 
“Cc 
“Cc 
*C 
rd 


oT 
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LET'S NOW LOOK AT AN IMPORTANT FEATURE OF FOCAL, THE 'TYPEY 
AND "SET! COMMANDS ALLOW THE USER TO 00 SOME USEFUL THINGS, TRE 
USER MAY NEED TO 00 4 SEQUENCE OF 'TYPE' AND 'SET! COMMANDS IN CRDER 
TO ACGOMPLISH A CERTAIN TASK, THE USER CAN PLACE NORE THAN ONE 
COMMAND PER LINE BY SEPARATING EACH COMMAND WITH A'S" (SEMI=COLON). 
SoM EXAMPLES! 


Xe5,Yu6, 20757 X,¥,2,1 
5.288 6.0037, 008 


x2C @)s 8,006 
Yar 2)" = 6,008 
22¢ Bde 7,208 


BaXeVsT B11 ZaBeast XvYEit 
11.008 
5.208 8 6.880 12,000 
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. 
°c ONE OF THE MOST USEFUL FEATURES OF ANY COMPUTER LaNGUAGE_IS THE 

*C ABILITY TO STORE & SERIES OF COMMANDS FOR LaTER EXECUTION, THE 

*C COMPUTER 18 VERY GOOD AY EXECUTING A SEQUENCE OF INSTRUCTIONS (COMMANDS) 
*C OVER AND OVER AGAIN, THE USER MAY STORE A ‘LINE OF FOCAL COMMANCS 

*C AWAY FOR LATER EXECUTION, THIS I$ DONE BY TYPING A 'LINE NUMBER! 

*C BEFORE THE ACTUAL LINE OF COMMANOS, WHEN THE CARRIAGE RETURK TS 

#C STRUCK, THE LINE WILL BE STORED BY FOCAL, EUT THE COMMANDS ON ThE 

*C LINE WILL NoT BE EXECUTED (AS OPPOSED TO IMMEDIATE EXECUTION IF THE 

*¢ 'LINE NUMBER’ IS LEFT OPF, ‘LINE NUMGERS' IN FOCAL ARE COMPOSED OF 

#2 THO PARTS, AND HAVE THE FORM 'GG.SS', WHERE 'GG! (84-99) IS 

*C THE "GROUP" THAT THIS LINE BELONGS TO, AND 'SS' (84099) IS ThE 

#C 'STEP! WITHIN THE 'GROUP?, WE WILL SEE THE SIGNIFICANCE OF BETKG 

#C ABLE TO "GROUP" LINES TOGETHER AND REFER TO THEM AS A UNIT, THIS A 

#¢ "LINE NUMBER! OF "2,38" INDICATES THAT THIS LINE IS ‘STEP’ NUMBER 35 

*C IN 'GROUP' 2, NOTE THAT "2,2! FOR A LINE NUMBER MEANS THAT THIS LINE 
CIS STEF TWENTY IN GROUP TWO, AND NOT STEP TwO, '2.82' WOULD BE 

*¢ USED TO INDICATE THAT THE LING WAS STEP THO IN GROUP TWO, SOME 

#0 EXAMPLES ARE IN ORDER HERE: 

. 


#11 T "HELLO, THERE"! 138 Xad, Ver, 223 
1.2 T "THE VALUES C* x, Ys 2, ARE "sXeYoZyt 


2.1 T "THATIS ALL FOLKS", ! 


. 
*C NOTICE THAT THE COMMANDS ON THESE LINES WERE NOT EXECUTED, BUT THE 

#C LINES WERE STORED Away BY FOCAL, SO THAT WE MaY EXECUTE THEM ANY 

C TIME WE DESIRE. WHENEVER p STORED LINE IS ENTERED (OR CHANGED), THE 
*C USER'S VARIABLE NAMES AND THEIR VALUES ARE ERASED FROH THE COMPCTERTS 
©C STORAGE, THERE ARE SEVERAL FOCAL COMMANDS WHICH ARE USEFUL 

ec TO THE USER BECAUSE THEY ALLOW MANIPULATION OF STORED LINES, WE WILL 
*C BE LOOKING aT THEM INDIVIDUALLY AS NEEDED, THE FIRST OF THESE COMMANDS 
*C IS THE 'WRITET COMMAND (WY) HHICH ALLOWS THE USER TO WRITE OUT 

*C THE LINES (ALL OR SOME) THat FOCAL HAS STORED, EXAMPLE 

. 


WRITE 


© FOCAL@65 (V30) 18-JUL*77 


2,10 T "HELLO, THEREMIEIS Kwa, YH2, 203 
2.20 T "THE VALUES OF Xp Vs B, ARE ")X,Vozyt 


2.10 7 THAT'S ALL FOLKS";! 


C FOCAL*65 (V3D) 18-JuL*77 


2,10 T "HELLO, THERE" !!5S Xeq,Ya2,283 
2.20 7 “THE VALUES OF X, ¥, 2, ARE ",X,¥02 


2/40 T "THAT'S ALL FOLKS", 
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. 

20 IF NO PARAMETER FOLLOWS TWE 'W' OR ‘WRITE! COMMANO, THEN ALL LINES 
#0 WHICH FOCAL HaS STORED AWAY WILL BE WRITTEN To THE OUTPUT DEVICE. 
#6 ALSO WHENEVER FOCAL WRITES taLL' THE LINES, IT WRITES THE TOP LINE 
*C KHICH IS aN IDENTIFIER TELLING WHICH VERSION OF THE FOCAL SYSTEF 

@G THIS IS, AND THE DATE WHICH IT WAS CREATED. IF A SPECIFIC LINE 

@C NUMBER FOLLOWS THE 'W! OR ‘WRITE’ COMMAND, THEN ONLY THaT LINE 

18 WRITTEN TO THE OUTPUT DEVICE, EXAMPLES 


OW 4.2 
1.20 T "THE VALUES OF Xs Y. By ARE "sXsYedst 


ow 2.4 


2.10 T "THAT'S ALL FOLKS": 
ew iat 

4.20 T "HELLO, THERE"!!1S Xed;Ye2, 203 
OW 210K Le20H ded 

2.40 T "THAT'S ALL FOLKS"s! 


1.20 T "THE VALUES OF X» Y, 2, ARE ",X,Yo2eT 


1.10 T "HELLO, THERE E48 Xa, Yu2s203 


. 
#7 S,"HERE ARE MY STORED LINES", 1!1W 


WERE ARE HY STORED LINES 


© FOCAL#65 (V30) 180JLe77 


2,10 T "HELLO, THERE"! 19S Xerj¥e2. 283 
1.20 T THE VALUES OF Xs Ys 2, ARE "sks Vote! 


2.d0 T MTHATTS Le FOLKS"! 

. 

“Cc THE USEFULNESS OF "GROUPS! OF LINES WILL NOW BECOME APPARENT, 
*C IF THE USER SPECIFIES ONLY A GROUP NUMBER WITHOUT A LINE NUMBER 

#C (LINE NUMBER OF ZERO)» THEN THE 'HRITE' COMMAND WRITES OUT ALL LINES 
#C WHICH BELONG TO THE SPECIFIED GROUP. EXAMPLET 

. 

WRITE 4 


2,18 T "HELLO, THERE™!!IS Xe 
ize T "THE VALUES OF Xs Yy 


02,203 
ARE "aX Yozot 


ow 2 
2.au T "THAT'S ALL FOLKS™S! 
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. 
*C | THIS ALLOWS THE USER TO LIST ANY LINE, GROUP, OR THE ENTIRE 

*C PROGRAM. “A IPROGRAN' IS A SERIES OF STORED LINES WHICH PERFGRM SOME 
*C FUNCTION OR TaSk FOR THE USER, WELL, WE HAVE CAREFULLY TYPEC IN THE 
#C ABIVE STOKED PROGRAM, BUT WOW DO WE INSTRUCT FOCAL TO ACTUALLY 

#0 PERFORM THE COMMANDS THAT HaVE BEEN STORED AWAY? WE CAN INOICATE THAT 
*C FOCAL TRANSFER CONTROL (BEGIN EXECUTING STATEMENTS) TO aNY SPECIFIC 
CLINE BY THE USE OF THE 'GOTO' (ABBRIEVIATED 'G' OR 'GO") COMMANE, 

*C THE (GOTO! COHMAND MUST BE FOLLOWED WITH THE LINE NUMBER OF 

"C THE STORED LINE THAT WE WANT TO TRANSFER CONTROL TO, IF A LINE NUMBER 
CIS OMITTED, THEN CONTROL IS TRANSFERRED TO THE LOWEST NUMBERED 

#C LINE THAT HAS BEEN STORED AWAY, SOME EXAMPLES! 


© FOCAL#65 (V30) 18-JuL+79 


1,19 T "HELLO, THERE" !13S Xeqj Yaz, Ze3 
1.20 T "THE VACUES OF X, Y, 2, ARE") X;Yo2,7 


2.12 T "THAT'S ALC FOLKS", © 


*GOTO 144 
HELLO, THERE 


THE VALUES OF X, Ys dy ARE 1.080 2.0883, 008 
THAT'S ALL FOLKS 


#C NOTE THAT CONTROL PASSES TO THE NEXT LINE IN SEQUENCE (UNLESS FOCAL 
#C HAS BEEN TOLD OTHERWISE) UNTIL ALL LINES WAVE BEEN EXECUTED, FCCAT 
* THEN HAS NOTHING MORE TO 00, SO IT PROMPTS WITH A '8', AND AMAITS A 
*C NEW COMMAND FROM THe USER, MORE EXAMPLEST 

*G 1.2 

THE VALUES OF X, Y, dy ARE 1.080 2,008 3,000 

THAT'S ALL FOLKS: 


86 2.1 
THAT'S ALL FOLKS 

. 

#8 Xs13¥242,291336 1.2 

THE VALUES OF X.Y. , ARE {4,00L 12,08B 3,008 
THAT'S ALL FOLKS. 


"Go 
HELLO. THERE 


THE VALUES OF XK) Y, @, ARE 1.0000 20e8 
THAT'S ALL FOLKS 
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. 
ats 
xc es 4,008 


yor ve 2,008 
zac w= 3,008 


. 
04.15 6 2d 
. 
ow 


© FOCAL@65 (V30) 18-JuL*77 
2,10 T "HELLO, THERE” 


1133 6 2a : 
2.20 T "THE VALUES OF Xe ys zy ARE "+Xeyrde! 


S Xea,Ya2, 203 


2.20 T "THAT'S ALL FOLKS"! 


8Go 
HELLO, THERE 


THAT'S ALL FOLKS 
: 


NOTE THAT THE NORMAL SEQUENTIAL DIRECTION OF STAMEMENT EXECUTION 
WAS ALTERED WHEN THE LINE 17,45! WAS INSERTED, WE WERE INTRODUCED TC 
THE ‘ERASE’ COMMAND EARLIER, HOWEVER, THERE ARE OTWER USES FOR THE 
@C ‘ERASE’ COMMAND, If THE ERASE COMMAND IS FOLLOWED BY A SPECIFIC 
#C LINE NOMBER (SUCH AS 11.21), IT ERASES JUST THAT LINE FROM STORAGE. 
#C IF IT 1S FOLLOWED BY A GROUP NUMBER ONLY (SUCH AS 'S'}. THEN IT ERASES 
#C ALL LINES THAT BELONG TO THaT GROUP. IF IT IS FOLLOWED BY ThE 
#C WORD TALLI. THEN IT ERASES ALL OF THE STORED LINES. AS WE 
#C HAVE SEEN BEFORE, IF THE 'ERASE' COMMAND IS FOLLOWED BY NO LINE OR “ 
"C GROUP _NUNBER, THEN IT ONLY ERASES THE USERS VARIABLE NAMES AND TKEIR STORED 
*C VALUES, ALL FORMS OF THE ‘ERASE’ COMMAND REMOVE ANY VARIABLE NaVES 
#C AND THEIR ASSIGNED VALUES, SOME EXAMPLES! 
. 
ob 1645 


. 
ow 
© FOCAL#65 (VSD) 18-JuL=77 


1.10 T "HELLO, THEREM!!)5 XeisYa2, 23 
212g T "THE VALUES OF ©. ¥, 2, ARE ")X,Yest 


2.10 T “THAT'S ALL FOLKS 


. 
02,2 T "THIS IS THE LIVING END!", 
. 
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* 
wd 


© FOCAL*65 (VSO) 18=JuL=77 


1112 T "HELLO, THERE"! 11S Xei,¥a2, 203 
2.20 T "THE VALUES OF X, Vs 2, ARE "sXsYoz! 


2,10 T "THAT'S ALL FOLKS! 
2.20 T "THIS IS THE LIVING ENDI"s! 


“G0 
HELLO, THERE 


THR VALUES OF X) Ys 2. ARE 1.002 2.808 
THAT'S ALL FOLKS 

THIS IS THE LIVING ENDY 

y 

oe 2 

on 

© FOCAL*65 (V3D) 18-JuLe77 


4,10 7 "HELLO, THERE"! 19S Xe: 
ize T "THE VALUES OF X,Y, 


eYm2 203 
ARE "X,Y, 7 


*60 
HELLO, THERE 


THE VALUES OF X, Ys #y ARE 1.000 2.008 
. 


oe ALL 


© FOCAL*65 (V30) 18-JUL=77 


Go 
. 
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#0 _ SINCE THERE WERE NO STORED LINES, THERE WaS NOTHING FoR FOCAL 

To PERFORM, aT THIS POINT, 17 WOULD BE APPROPRIATE TO OISCUSS THE 
QUESTION "WHAT IF T MAKE A MISTAKE?", FOCAL PROVIDES SEVERAL 
MECHANISHS WHICH ASSIST THe USER IN CORRECTING MISTAKES, SOME WILL 
BE DISCUSSED HERE, OTHERS LATER, "WHAT IF 1 MAKE A MISTAKE WHILE 
TYPING COMMANDS TO FOCAL FROM THE KEYBOARD?", SINGLE CHARACTERS 
CaN BE ‘RUBBED OUT’ BY STRIKING THE 'RUZOUT! KEY (SOMETIMES LABELED 
"DELETE') ON THE KEYBOARD, ONE CHARACTER TO THE LEFT WILL BE 
'FORGOTTEN' BY FOCAL FOR EqcH TIME THE *RUBOUT' KEY IS STRUCK, 

SOME EXAMPLES! 


. 
oT "THIS £3 4 TXORMAVESTM, Tt 
THIS IS A TEST 


. 
®G NOTICE THAT THE '\' CHARACTER I8 ECHOEO EVERY TIME THE 'RUBOUT' KEY 
eC 18 STRUCK (A FANCY RUBOUT MODE FOR CRTS TS aVaTLABLEs WHERE THE 
CHARACTER IS 'EATEN! OFP THE SCREEN). THE ENTIRE CINE To THE 

LEFT CAN BE ‘FORGOTTEN BY STRIKING THE 'BACKARROW' KEY ON THE KEYBOARD, 
AN EXAMPLE! 


af mxyet¥et *THIS 18 a TESPM TL 
THIS 15 & TEST 


. 
#C WHEN THE 'BACKARROW! KEY WAS STRUCK, FOCAL FORGOT EVERYTHING To THE 
®C LEFT OF THE 'BACKARROW', THE USER MAY JUST CONTINUE TYPING THF AER 


®C CHARACTERS ON THE SAME LINE, MORE EXAMPLES? 


CMTHIS ARE\\NN IS A TXC\NESTRY I! 
THIS IS A TEST 


OS Xai, YH, 883,68 WHOS X07; Yea, EaiwsT XvY2, 


7.008 8,203 19,000 


ry 
®C HERE SEVERAL 'RUBOUTS! AND 'BACKARROWS’ WERE USED ON THE SAME 
®C LINE, ‘CYOU WOULD NEVER HAKE THAT MANY HISTAKES, OF COURSE). 

. 
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"WHAT IF 4 MISTAKE IS FOUND INSIDE OF A LINE ALREADY STORED AWAY?" 
ONE APPROACK WOULD gE TO SIMPLY TYPE THE WHOLE LINE IN OVER AGAIN (FOCAL 
WILL REPLACE THE ONE STORED WITH THE NEW LINE), BUT THIS PROCESS CAR 
BE VERY TEDIOUS IF ONLY ONE CHARACTER IS TO BE CHANGED IN A LONG LINE, 


FOCAL PROVIDES 2 FACILITY WITH THE 'MODIFY' COMMAND TO ALLOW THE 
USER TO MAKE CHANGES IN & STORED LINE WITHOUT HAVING TO RE-TYPE THE 
ENTIRE LINE, IF THe USER TYPES THE "MODIFY? COMMAND ('M*), FOLLOWED 

BY a SPECIFIC LINE NUMBER, THAT LINE 1S OPENED FOR MODIFICATION, FOCAL 
TYPES OUT THE LINE NUMBER (INFORMING THE USER THAT IT LocaTED THE LINED, 
THEN WAITS FOR USER INPUT, WHENEVER THE MODIFY COMMAND 1S WAITING FOR 
USER INBUT, THE USER MAS SEVERAL MODIFICATION OPTIONS, THEY ARES 


1, SIMPLY TYPE IN ANY TEXT THAT THE USER WANTS INSERTED AT THAT POINT, 


2, DELETE ANY TEXT TO THE LEFT GY THE USE OF fHE "RUBOUTT aNO/OR 
'BACKARROW! KEYS, 


3, SEARCH FOR (POSITION AFTER) A CHARACTER FURTHER TO THE RIGHT OF THE 
USER'S CURRENT POSITION ON THE LINE, THIS IS DONE BY STRIKING 
THE 'ALTMODE! KEV (SOMETIMES LABELED 'ESCAPE'), FOLLOWED BY 
STRIKING THE CHARACTER THAT IS TO BE SEARCHED FOR, IF THE CHARACTER 
18 LOCATED, THE LINE IS TYPED OUT UP TO THAT POINT AND FOCAL 
WAITS FOR FURTHER USER INPUT, IF THE CHARACTER IS NOT LOCATED, 
THE ENTIRE REST OF THE LINE [$ TYPED, AND MODIFICATION ENDS, 


4, THE USER MaY TRUNCATE A LINE (REMOVE ALL INFORMATION TC THE RIGHT) 
GY TYPING THE CARRIAGE RETURN KEY, aT THIS POINT MODIFICATION ENDS, 


5. THE USER MAY END MODIFICATION BY STRIKING THE TLINE FEED? KEY, 
THIS CAUSES THE REMAINOER OF THE LINE TO BE TYPED, AND THEN 
MODIFICATION ENDS, ALL DEFINED VARIABLE NAMES 4ND THEIR VALUES 
ARE ALSO ERASED, 


= PAGE 29 - 


IF THE USER WISHES TO MODIFY THE LINE AGAIN, HE SIMPLY TYPES a NEW 
SMODIFY' COMMAND. THIS PROCESS IS A LITTLE HARD TO DEMONSTRATE ON THE 
PRINTED PAGE, BUT HERE ARE SOME EXAMPLES! 


© FOCAL#65 (VSD) 18-JuL=77 


2.1 T "THIS TS MY PRGRAMT,! 
oW 


© FOCALS65 (V3D) 1B-JuLe77, 
2.18 T "THIS 1S MY PRGRAMT,t 


#60 
THIS IS HY PRGRAM 
. 


tat 


1,12 T "THIS 1S MY PROGRAM", 
. 


#60 
THIS 1S MY PROGRAM 
ow 


© FOCAL #65 ¢V3D) sBegun o7¥ 
1.40 T "THIS IS HY PROGRAN",: 
. 


WHAT THE USER OIp, IN THE ABOVE "MODIFY’ COMMAND, WAS TO TYPE AN 
TALTMODE', THEN THE CHARACTER 'R', FOCAL THEN TYPED OUT THE LIKE UP 
TO THE NEXT 'R' ENCOUNTERED (TRE TRY IN 'PRGRAMV), THE USER THEA 
STRUCK THE 'O' KEY, WHICH JUST INSERTED AN 101 AT'THAT POINT, THEN 
STRUCK THE 'LINE ECO! KEY IN ORDER TO RETAIN THE REMAINDER OF THE CINE 
AS IS, THAT REQUIRED 4 KEYSTROKES AS OPPOSED TO 26 REQUIRED TO RE-TYPE 
THE ENTIRE LINE. 
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ac SOMETINES IT IS USEFUL FOR THE USER TO SUPPLY DATA VALUES FCR 

"C SOME OF THE VARIABLES IN THE PROGRAM, RUN THE PROGRAM, THEN 

“C SUPPLY DIFFERENT VALUES, RUN THE PROGRAM AGAIN, ETC, THE USER CAN INPUT. 
#C NUMERICAL INFORMATION FROM THE INPUT DEVICE ANO HAVE FOCAL STORE ThAT 

*C INFORMATION IN A VARIABLE NAME, JUST AS IF HE HAD USED THE 'SET* GCMMAND 
#C TO 00 IT, THE FOCAL COMMAND WHICH DOES THIS {S THE "Sk? (OR TAT) COMMAND, 
*C FOR EACH VARIABLE NAME APPEARING IN THE 'aSk! COMMAND, FOCAL WAITS FOR 

*C AN ARITHMETIC EXPRESSION To SE INPUT, REDUCES IT TO A SINGLE NUMERIC 

*C VALUE, AND ASSIGNS THAT VALUE AS THE VALUE OF THE VARIABLE NAME, 

*C EXAMPLED 


#e ALL 


© FOCAL*65 (V30) 18*JuL=77 
ats 


ASK XY 
12.34 
27.312 

5 


OT XY 2etd 
12.342 27,312 5,088 


ATs 


xo¢ B= 12,340 
Y2C 2)= 27,312 
23c os 5.280 
. 

AXE 

1503 


ary 


xXac = 4,008 
Yar oe 2,228 
20 22 = 3,008 


oT XY Ett 
1.000 = 2,080 3, BBB 
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#C CERTAIN NON-NUMERIC CHARACTERS CAN SEPARATE TRE EXPRESSIONS ON TYPE®IN 
®C (SUCH AS COMMA, OR CARRIAGE RETURN}. ANY ARITHMETIC EXPRESSION CAN 
®C GE INP’T, AS THESE EXAMPLES SHOW? 


ers. 


x3¢ Oe 1,008 
Yar os 2,988 
2a Be 

. 

eh Bo 
KeYeod 
ztpe1 
. 

as 


xa¢ ode 
yor ws 
29¢ 9) 
Bac oe 
coc 2) Ay 


. 
ASK X6Ys0B4C 
Xet 

Ye 

Eb aetees 


* 
ets 


xt ode 
Yo we 
#0 Ode 
aor eds 
car ads 
‘ 
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*C THE ABOVE SEQUENCE INCREMENTED EACH OF THE VARIABLES gy ONE, THE 

#C TASK! COMMAND ALSO RECOGNIZES THE 'S', '*!, 1x0, 1!', AND t#! CBTIONS MUST 
#2 THE SAME AS THE 'TYPE! COMMAND. THIS ALLOWS THE PROGRAMMER TO ADD 

*C THINGS WHICH MAKE THE USE OF THE PROGRAM MORE COHERENT. 

40 SOME EXAMPLES: 

*E ALL 

oy 


C FOCAL*65 (V3D) 18-JuL©77 


2.1 4 "NOW PLEASE ENTER A NUMBER? ")X 
1.2 T t"THE VALUE OF THE NUMBER SQUARED IS",X¢2,1! 


© FOCAL*65 (V30) 18-JUL=77 


2,20 4 "NOW PLEASE ENTER a NUMBERT 
41.20 7 Te"TWE VALUE OF THE NUMBER SQUARED IS",Xe2,11 


*Go 
NOW PLEASE ENTER A NUMBER! 4 


THE VALUE OF THE NUMBER SQUARED IS 16.000 


+6 
NOW PLEASE ENTER A NUMBER! 445, 


THE VALUE OF THE NUMSER SQUARED IS 28.280 


°Go 
NOW PLEASE ENTER A NUMBER? <3 


THE VALUE OF THE NUMBER SQUARED IS 9,060 
eH 12 


1.20 T Ls"THE VALUE OF THE NUMBER SQUARED [Sam,x92,T! 
oW 
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1.10 A "NOW PLEASE ENTER A NUMBERS ",X 
1.20 T Le"THE VALUE OF THE NUMBER SQUARED IS=”,x92,tt 


G0 
NOW PLEASE ENTER & NUMRERI 6 


THF VALUE OF THE NUMBER BQUARED [Ss 16,000 
cers 


2.10 A Te"NOW PLEASE ENTER A NUMBERI "sX¥t 
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“Ww 
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1,10 4 Te"NOW PLEASE ENTER A NUMBERI "Xyt 
1.20 T Ve"THE VALUE OF THE NUMBER SQUARED [$er,xe2,t! 


co 
NOW PLEASE ENTER A NUMBER: 2.2 


THE VALUE OF THE NUMBER SQUARED IS# 4,848 
#90 
NOW PLEASE ENTER 4 NUMBER! Xeq 


THe VALUE OF THE NUMBER SQUARED 1S= 10,248 
ots 
xo¢ ye BaD 
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“Cc A REASONABLE QUESTION aT THIS POINT NIGHT BE "HOW DOES 

*C FOCAL INFORM ME WHEN IT ENCOUNTERS AN ERROR OF SOME KINO?", ERROR 

*C MESSAGES IN FOCAL ARE ALWAYS STARTED WITH A '?' CHARACTER [N THE FIRST 
*C POSITION ON THE LINE, THE "7! IS THEN FOLLOWED BY A CODE NUMBER, WHICH 
#C INGICATES WHAT THE ERROR IS (A LIST OF ALL THE CODE NUMBERS AND THEIR 
#C MEANINGS IS GIVEN IN AN APPENDIX), IF THE ERROR OCCURED IN A STORED 

SC LINE, THEN THE LINE NUMBER OF THE LINE IS ALSO OUTPUT, THEN THE LINE IS 
* OUTPUT TO THE USER'S CONSOLE, WITH AN '*' (UPARROW) POINTING TO THE 

*C POSITION IN THE LINE WHERE FOCAL WAS PROCESSING AY THE TIME THE ERROR 
®C CONDITION WaS ENCOUNTERED, THIS INFORMATION 1S USUALLY ENOUGH TO 

*C QUICKLY DETERMINE THE CAUSE OF THE ERROR, SOME ILLUSTRATIONS! 

. 

W 
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2,10 A L/"NOW PLEASE ENTER A NUMBERI ",X,! 
1.20 T T/"THE VALUE” OF THE NUMBER SQUARED IS", x93, 17 


e412 

1.20 T Es"THE VALUE OF THE NUMBER SQUARED ISe",xez,1! 
ow 1.3 

2-22 


. 
®C (ERROR CODE 22 18 ‘WRITE OF NON*EXISTENT LINE!) 


“Ee 2 
. 
®C (NO COMPLAINT HERE, THERE WAS NOTHING TO ERASE) 


8999.4 T THIN 


Ina 


999.2 T MHIM! 


*C (ERROR CODE 4 IS "ILLEGAL LINE NUMBER"), GROUP NUMBERS CAN ONLY 
*C BE WITHIN THE RANGE 64-99, 
. 


#HELLO THERE 
a3 

WELLO THERE 
. 


#C (ERROR CODE 3 1S "UNRECOGNIZABLE COMMAND') 
. 
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. 
“Cc WE HAVE SEEN HOW TO TRANSFER CONTROL IN THE FOCAL PROGRAM TC A 

@C LINE OTHER THAN THE ONE THaT IS CURRENTLY BEING EXECUTED, VIA TE 

@C 'GOTO' COMMAND. A VERY IMPORTANT FEATURE OF FOCAL IS THE 

@C ABILITY TO EVALUATE AN EXPRESSION AND TRANSFER CONTROL 

eC TO GNE OF SEVERAL PLACES, DEPENDING UPON THE RESULT OF THE EVALLATION, 
SC WHEN AN ARITHHETIC EXPRESSION IS EVALUATED IN FOCAL, IT 1S REDUCED To 
CA SINGLE MUMERTC VALUE, THE TIF? COMMAND (aBBREVIATED '1') IN FOCAL 

@C ALLOWS THE TRANSFER OF CONTROL TO UP TO THREE OIFFERENT PLACES, 

eC DEPENDING ON WHETHER THE RESULT OF THE EXPRESSION IS LESS THAN ZERO, 
EQUAL TO ZERO, OR GREATER THAN ZERO, THE EXPRESSION IS ENCLOSEC 

IN PARENTHESES, AND THE LINE NUMBERS OF THE PLACES TO GO FOLLOW THE 

eC CLOSING ')', FOCAL WILL TRANSFER CONTROL To THE FIRST LINE AUMEER IF THE 
@C RESULT OF THE EXPRESSION IS LESS THAN ZERO, TO THE SECOND LINE 

@C NUMBER IF THE RESULT OF THE EXPRESSION [S EQUaL TO ZERO, AND TO THE 

#¢ THIRD LINE NUMBER Ir THE RESULT OF THE EXPRESSION IS GREATER TAN 

4@C ZERO, THE LINE NUMBERS ARE SEPARATED BY COMMAS, SOME EXAMPLES! 

° 

oe ALL 


. 
#1,1 A T)MENTER A NUMBERIMGXGS 

C2 IF (X04,3,2.404.5 

4:3 T "THE NUMBER TS LESS THAN ZERO", 
1.4 T "THE NUMBER IS EQUAL fo ZERO", 
115 T "THE NUMBER IS GREATER THAN ZERO", 


« 
. 
. 
a 


CT 
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2,10 A TsMENTER A NUMBERI",X 
L120 TF (X65 40405 

4,30 T "THE NUMBER JS LESS THAN ZERO", !14QU. 
1240 T "THE NUMBER IS EQUAL TO HERO", 111 QUL 
1750 T "THE NUMBER 18 GREATER THAN BERO",!! 
° 


IT 
ud 
QUIT 
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0 

ENTER A NOMBERIS 

THE NUMBER IS GREATER THAN ZERO 
*6a 

ENTER A NUMBER TAS 

THE NUMBER IS LESS THAN EERO 
°co 

ENTER A NUMBERIG 

THE NUMBER IS EQUAL TO ZERO 

“G0 

ENTER A NUMBERIAed 

THE NUMBER IS GREATER THAN ZERO 
Go 

ENTER A NUMBERIS=5. 

THE NUMBER IS EQUAL TO ZERO 

Ww 

© FOCAL@65 (VSD) 48-JuLe77 
1,10 AL)MENTER A NUMBER", X,1 
1.20 IF O04.3)5.40468 

1.3d T "THE NUMBER IS LESS THAN ZERO") !!;QUIT 


1.42 T "THE NUMBER I$ EQUAL TO ZERO", 1!sQUIT 
4.5@ T "THE NUMBER IS GREATER THAN @ERO",!!7QUIT 
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#C CONTROL IS TRANSFEREO TO LINE '4,3' IF THE VALUE OF 'x" IS 

#C LESS THAN ZERO, TO 'i.4! IF IT IS EQUAL TO BER, AND TO 13.5" IF 
eC IT IS GREATER THAN ZERO, AT THOSE LINES, THE "TYPE" COMMAND OUTPUTS 
@C AN APPROPRIATE MESSAGE, THEN THE 'QUIT' COMMAND IS USED TO 

eG STOP THE EXECUTION ENTIRELY, IF THE 'QUIT! COMMAND NERE NOT THERE, 
®C FOCAL WOULD HAVE CONTINUED EXECUTION WITH THE NEXT LINE IN 

#0 SEQUENCE, THE ‘QUIT! COMMAND MAY BE USED AT ANY PLACE IN A FOCAL 
ec PROGRAM To CAUSE THE EXECUTION OF STORED INSTRUCTIONS To STOP 

®C ENTIRELY, AND FOCAL TO PROMPT WITH A's", AND AWAIT A NEW COMMARD, 
eC MORE EXAMPLES? 

. 

. 

oH 4.2 


LL20 TF (Xe 4632418 

on aes 

4.30 T “THE NUMBER 1S LESS THAN ZERO\\A\SEVEN®, TT TQUIT 
on 1d 

1.40 T "THE NUMBER IS EQUAL TO BERON\\\SEVEN", 11 /0UIT 
aM 1s 


1.50 T "THE NUMBER (S GREATER THAN BEROV\NSEVEN| TTFQUIT 
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a 
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AT:MENTER & NUMBERS", Xu 

IF (X72 43,2 040165 

T "THE NUMBER I$ LESS THAN SEVEN", 
1 "THE NUMBER IS EQUAL TO SEVEN")! 
T "THE NUMBER IS GREATER THAN SEVEN", !!sQUIT 


ENTER A NUMBER TG 

THF WUMBER IS LESS THAN SEVEN 
+6 

ENTER A NUMBERI9 

THE NUMBER 1S GREATER THAN SEVEN 
“60 

ENTER A NUMBER? 

THE NUMBER IS EQUAL TO SEVEN 

*G 

ENTER A NUMBERIS¢4 

THE NUMBER IS GREATER THAN SEVEN 
so 

ENTER & NUMBERI9=12 

THE NUMBER IS LESS THAN SEVEN 
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. 
“c IT 1S NOT ALWAYS NECESSARY TO SUPPLY ALL THREE LINE NUMBERS WHEN 
4C USING THE 'IF* COMMAND, IF A LINE NUMBER IS OMITTED OR NULL (A COMMA 
#C 18 THERE, BUT NOTHING 1S BEFORE IT), THEN FOCAL WILL PROCEED TO THE 
#¢ NEXT COMMAND IN SEQUENCE (INSTEAD OF TRANSFERING CONTROL TO 

@C ANEW PLACE) IF THE CONDITION IS TRUE (EXPRESSION LESS THAN 

#C ZERO, EQUAL To ZERO, OR GREATER THAN ZERO), THIS ALLOWS FOR MORE 

@C COMPACTNESS IN THE PROGRAM, SOME EXAMPLES SHOULD HELP CLARIFY THISI 


of ALL 


IMENTER A NUMBERIM,X, 234 (¥-794,5,4.65T "t WAVE CONTINUED ON 4,4", 10 
"DAM AT LINE 1.5% 1° 
6.7 "1 AM AT LINE 2,6", 


FOCAL=65 (V30) 18=JuLe7 


VENTER A NUMGERUM,X, 1) 1 TKePTL.Sea.60 WT AAVE CONTINUED CN 4.4" V 156 
SLAM AT LINE 2.5%) 110 
"TAM AT CINE 1.6". 110 


ENTER A NomBERGS 
1 aM AT LINE 4.5 
“ 

ENTER A NUMBERY? 
i AM aT LINE 4.6 
* 

ENTER A NUMBERT9 


1 HAVE CONTINUED ON 4.4 
. 
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*C SINCE THE THIRD LINE NUMBER WAS OMITTED, FOCAL CONTINUED WITH THE NEXT 
#C COMMAND IN SEQUENCE (THE 'T "I HAVE CONTINUED ON 4.4"') WHEN THE VALUE. 

#C OF THE EXPRESSION (x-7) WAS GREATER THAN ZERO (1,€. X WAS GREATER THAN 7), 
8C MORE EXAMPLES: 

eM at 


2.10 A INENTER A NUMBERIM)Xe$d1 (X-7)1,5,4.658 
4.2 TMT AMAT LINE 4.2",150 
on 
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a.10 A IMENTER a NUMBERIN;X 
3.2¢ 7 "EAM AT LINE. 
2,50 T "TAM AY LINE 
163, T "TAM AT CINE 


“Go 
ENTER A NUMBERI3 


Tam AT LINE 4,5 
aGo 


ENTER & NUMBER? 


Io aM aT LINE 4,6 
860 


ENTER & NUMBERI9 
1 AM AT LINE 4,2 
. 


*C IN THIS CASE THE NEXT COMMAND IN SEQUENCE JUST HAPPENED TO BE ON 
®C THE NEXT LINE, BUT THAT IS NO DIFFERENT THAN THE FIRST c4SE WMERE THE 
* NEXT COMMAND IN SEQUENCE IS ON THE SAME LINE, MORE EXAMPLES? 

. 


cere 


1.10 A IMENTER A NUMBERI.X, 101 (X-704,5 
. 
, 


- PAGE 41 - 


oW 
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AMENTER A NUMBERI",X, {91 (X-794.5 
MT AM AT LINE 4,2") 190 
"TAM AT LINE 3.5119 
"TAM AT CINE g.emitia 


1 
1 
1 


co 
ENTER A NUMBERIS 


toaM AT LINE 1,5 
G0 


ENTER a NUMBERI7, 


Tad AT LINE 1,2 
00 


ENTER a NUMBERTO 
Pam aT LINE 1,2 


. 
$C SINCE ONLY ONE LINE NUMBER WAS SPECIFIED (THE ONE TO TRANSFER TO 

®C WHEN THE EXPRESSION WAS LESS THAN ZERO), FOCAL PROCEEDED TO THE NEXT COMMA 
*C IN SEQUENCE WHEN THE VALUE OF THE EXPRESSION WAS EQUAL To, OR GREATER THAN 
#C 2ER0, MORE EXAMPLES! 

. 

eM ta 


2.10 A DENTER a NUMBERIM,X) LET (X=794,5\NV) 1,697 "TP RAVE CONTINUED ON Asi", 
oW 
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2210 A PTENTER A NUMBERIMEX LUT (X=7)65-617 "t HAVE CONTINUED ON 4.4" 
2.20 TMT AM AT LINE 2.295110 

2,50 T "I AM AT LINE 4.5" 
2.60 T "IAM AT LINE 4.6%, 


+60 

ENTER A NUHBERES 

T HAVE CONTINUED ON 461 
or 


ENTER & NUMBERIT, 


1M AT LINE 1.6 
oC 


ENTER A NUMBERED 
1 HAVE CONTINUED ON 444 
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*C _ SINCE THERE WaS 4 COMMA, BUT NO LINE NUMBER, THEN FOCaL PROCEEDS TC 
eg THE NEXT COMMAND IN SEQUENCE IF THE VALUE OF THE EXPRESSION IS LESS THAN 
#¢ ZERO, IF IT 1S EQUAL TO ZERO, IT TRANSFERS To LINE 1,6, IF IT TS GREATER 
#2 THAN ZERO, FOCAL PROCEEDS To THE NEXT COMMAND IN SEQUENCE, NOTE THIS! 


cere 


1,43 A UTENTER A NUMBERE"AXsti1 (X=7)0\4.637 "ET HAVE CONTINUED ON 4,4", 130 
on 


© FOCAL*65 (VSD) 18-JuLe7? 


1.12 £ ITENTER A NUMBERE AX ti] (X=7)4.6T “1 HAVE CONTINUED ON 2.4%) 110 
1,20 7 "1 AM AT LINE 1,2") 810 

4.50 T "1 AM AT LINE 2.5". 11Q 

Ti6o TT AM AT LINE 1.6"100 

oso 


ENTER & NUMBERIS 


1AM AT LINE 1.6 
“G 


ENTER A NUMBERS? 
1 HAVE CONTINUED ON 4.4 


ENTER & NUMBERI9 


1 WAVE CONTINUED ON 4.4 
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. 
®C THAT LITTLE COMM, WAS VERY IMPORTANT! IN THIS CASE FOCAL TRANSFERS 
#C CONTROL TO LINE 1.6 IF THE VALUE OF THE EXPRESSION JS LESS THAN ZERO, 
eC BUT PROCEEDS TO THE NEXT COMMAND IN SEQUENCE IF THE VALUE IS EQLAL TC, 
OR GREATER THAN, ZERO (SAME AS ANOTHER EXAMPLE ABOVE), ANOTHER EXAMPLES 


Coeere 


1,10 4 IMENTER 4 NUMBERI 
ow 


XythT (X724.6,,4,617 "E HAVE CONTINUED ON 4,3", ! 


C FOCAL#65 (V30) 18-JULe77 
2.12 A TMENTER a NUMBERI"| Xs TEL (X-7)4.6002.69T "E HAVE CONTINUED ON 4.4",! 
leo TMT AM AT LINE 4,27, 110 

4150 T "EAM AT CINE 4.5%) 010 

Aloo T "EAM AT CINE s.6"stig 

#60 


ENTER & NUMBERS. 


1AM AT LINE 1.6 


a6 

ENTER A NUMBERI?. 

1 HAVE CONTINUED ON 464 
1d 


ENTER a NUMBERI9 


1 UM AT LINE 1.6 
. 
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*C FOCAL WILL TRANSFER CONTROL TO LINE 4,6 IF THE VALUE OF THE EXPRESSICN 
®C 1S NOT EQUAL TO ZERO (I.E, LESS THAN OR GREATER THAN), BUT WILL PROCEED 
®G WITH THE NEXT COMMAND IN SEQUENCE IF THE VALUE IS EQUAL TO ZERO, THE 

#C ‘IF! STATEMENT ALLOWS EITHER THO OR THREE WAY BRANCHING OF PROGRAM CONTROL 
©C DEPENDING UPON THE VALUE OF AN ARITHMETIC EXPRESSION. THIS ALLCHS ThE 

®C COMPUTER PROGRAM TO COMPARE QUANTITIES AND PERFORM OIFFERENT COMMAND 

®C SEQUENCES, DEPENDING UPON THE RELATIONSHIP OF THOSE QUANTITIES, THUS, 

#O THE "IF! GOMMAND IS A CONDITIONAL 'GOTO' COMMAND, 

c IT 18 DESIRABLE TO HAVE FOCAL REMEMBER WHERE IT IS EXECUTING COMMANDS ON 
®C 4 GIVEN LINE, TRANSFER CONTROL TO, PERHAPS, ANOTHER LINE OR GROLP, THEN 
“C HAVE FOCAL RETURN To THE PLACE IT REMEMBERED 17 WAS ATs CONTINUING TC 

4c EXECUTE COMMANDS AS QEFORE, THIS 1S 4 VERY POWERFUL FEATURE, SINCE IT 

#C ALLOWS THE PROGRAMMER TO WRITE A LINE (OR GROUP OF LINES) TO D0 A 

4c SPECIFIC TASK, AND WHENEVER TWAT TASK NEEDS To BE OONE, PERFORM THE LINE 
@C OR GROUP, AND RETURN TO THE NEXT COMMAND IN SEQUENCE. THIS CAPABILITY IS 
#¢ PROVIDEO FOR BY THE DO! COMMAND IN FOCAL, THE 'D0' COMMAND CAN BE USED 
#¢ TO PERFORM 4 SINGLE LINE, OR AN ENTIRE GROUP OF LINES, “WHEN FOCAL 

#C ENCOUNTERS 4 'DO' COMMAND, IT LOOKS FOR A LINE NUMBER OR A GROUP NUMBEX 
4G (SUCH AS '3") FOLLOWING THE "00" COMMAND, FOCAL THEN REMEMBERS THE POSITION 
@C TO RETURN TO AFTER PERFORMING THE LINE OR GROUP, TRANSFERS CONTROL TC THE 
@C BEGINNING OF THE LINE OR GROUP, PERFORMS THE FOCAL COMMANDS THERE, THEN 
#C RETURNS TO THE NEXT COMMAND IN SEQUENCE FOLLOWING THE 'pO' CCMMAND. 

#¢ THE 'DO' COMMAND OPERATES SLIGHTLY DIFFERENTLY WHEN PERFORMING CALY & 

#0 SINGLE LINE OF COMMANDS, THAN IT DOES WHEN PERFORMING AN ENTIRE GROUP 

#0 OF COMMANDS, LET US LOOK aT WOW THE "DO" COMMAND FUNCTIONS WHEN WE 

#C SPECIFY A SPECIFIC LINE NUMBER, THE 'DO' CAUSES FOCAL To REMENGER WHERE 
4 TO RETURN TO AFTER THE 'D0' HAS COMPLETED, TRANSFERS CONTROL TO THE 

@¢ FIRST COMMAND ON THe SPECIFIED LINE, THEN PROCEEDS TO EXECUTE CCMMANCS 

#C AS THEY ARE ENCOUNTERED UNTIL A CARRIAGE RETURN IS ENCOUNTERED, AT THE 
4 TINE THE CARRIAGE RETURN IS ENCOUNTERED, CONTROL RETURNS TO THE PLACE 

#C FOCAL REMEMBERED WHEN THE 'DO' WAS ENCOUNTERED. SOME EXaMPLES? 


4 ALL 

. 

#21 T "IAM EXECUTING COMMANDS ON CINE 2.1" 
92.2 T "I AM EXECUTING COMMANDS ON LINE 2.2" 
02.3 7 "I AM EXECUTING COMMANDS ON LINE 2,3" 
. 

oW 


© FOCAL*65 {V3D) 18=JuL*77 
2.10 T "I AM EXECUTING COMMANDS ON LINE 2.1%) 


2.20 T "I AM EXECUTING COMMANDS ON LINE 2.2") 
2.30 T "I AM EXECUTING COMMANDS ON LINE 2.3" +1 


* 
*C NOTE THE ACTION OF THE 'GOTO' COMMAND: 
#60 

1AM EXECUTING COMMANDS ON LINE 2-2 

1 AM EXEC"TING COMMANDS ON LINE 2.2 

1 AM EXEC" TING COMMANDS ON LINE 2.3 


0G 2.2 
1 AM EXECUTING COMMANDS ON LINE 2.2 
1 aM EXEC TING COMMANDS ON LINE 2.3 
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THE GOTO COMMAND DOES NOT REMEMBER ANY PLACE TO RETURN TO, 
NOW NOTE THE ACTION OF THE 'D0' COMMAND: 


2.4 
EXECUTING COMMANDS ON LINE 2.4 


Jo 262 
GM EXECUTING COMMANDS ON LINE 2.2 


2.3 
Bu EXEC!'TING COMMANDS ON LINE 2,3 
. 


#0_2.257 "THE 'D0' COMMAND RETURNED HERE") !50 2.337 "MORE COMMANDS ON THIS LIN 
1 AN EXECUTING COMMANDS ON LINE 2.2 

THE "00" COMMAND RETURNED WERE 

EXECI'TING COMMANDS ON LINE 2.3 


1a 
MORE COMMANDS ON THIS LINE 


2a 


2/10 T "I AM EXECUTING COMMANDS ON LINE 2,1",156 2,3 
. 
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Qiia T "LAM EXECUTING COMMANDS ON LINE 2.3" /156 263 
2.20 T "I AM EXECUTING COMMANDS ON LINE 2.2%} 
2530 T "I AM EXECUTING COMMANDS ON LINE 2.3" if 


. 


0 262 

1 2M EXECUTING GCOHMANDS ON LINE 2.2 
1 aM EXECUTING GOMMANDS ON LINE 2.3 
. 
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THE 'D0 2.4° REMEMBERED WHERE TO COME BACK TO, TRANSFERED CONTROL 
TO LINE 2.4, AND BEGAN EXECUTING THE COMMANDS THERE, THE 'GCTC! CCHFAND 
AT THE END OF LINE 2,4 TRANSFEREO CONTROL TO LINE 2,3 WITHOUT FCCAL EVER 
HAVING ENCOUNTERED 4 CARRIAGE RETURN, THUS COMMANDS ON LINE 2,3 WRERE 
EXECUTED UNTIL A CARRIAGE RETURN WAS ENCOUNTEREO AT THE END OF LINE 2,3, 
AT KHICH TIME FOCAL RETURNED TO THE PLACE IT REMEMBERED TO GO BACK TC 
(AFTER THE 00 2.4°), SAW NO MORE COMMANDS THERE, SO IT quit. 
MOPE EXAMPLES: 


¢ FOCAL®65 ¢V30) 18«JuLe77 


2.10 T "I AM EXECUTING COMMANDS ON LINE 2.4") 136 243 
2,22 T "I AM EXECUTING COMMANDS ON LINE 2.2)1 
2°32 T "I AM EXECUTING COMMANDS ON LINE 2.3"%1 


6 2.2 
AM EXECUTING GOMMANDS ON LINE 2.2 
AM EXECUTING COMMANDS ON LINE 2.5 
G6 2.2 

M EXECUTING COMMANDS ON L 

M EXECUTING COMMANDS ON L 


Da 2.2 
AM EXECUTING COMMANDS ON LINE 2.2 


. 
! 
1 
. 
1 
1 

* 
I 
* 


4D 2.550 2.257 THAT'S ALLIMIEL 

1 AM EXECUTING COMMANDS ON LINE 263 
1 aM EXECUTING COMMANDS ON LINE 2.2 
THAT'S ALLE 


. 


ALL 
Vi T Ey"THE VALUE OF Xe ",X,1 


C FOCAL*68 (VSD) 18+JuL*77 
251g T Ls"THE VALUE OF Ka "OXyt 
oS XwisD 2645S e200 2.4 

THE VALUE OF Xe 1.988 

THE VALUE OF Xe grew 


ei.4 S Kexeds0 2.456 1.4 
w 


© FOCAL#65 (V3D) 18-uuLe77 
2.10 S Kexe1s0 2.190 164 
Ql1@ 7 VeMTHE VALUE OF Ke "axa! 


*60 

THE VALUE OF Xe 1-008 
THE VALUE OF Xe 2.008 
THE VALUE OF Xe 3.p0e 
THE VALUE OF Xe 4.008 
THE VALUE OF Xe S.oo0 
THE VALUE OF Xa 6.008 
THE VALUE OF Xe 7.008 
THE VALUE OF Xe 8.008 
THE VALUE OF Xe 9.008 


THE VALUE OF Xe 19.008 
THE VALUE OF Xe 11,008 
THE VALUE OF Xe 12,008 


ce rr 
TOESMTHE VALUE OF Xa mM 


, 
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*C THE SEQUENCE OF COMMANDS IN LINE '1,1" ADDED ONE TO THE VALUE CF 'X', 

*C PEPFORMED THE COMMANDS ON LINE '2s4' THEN TRANSFERED Back 7C TRE BEGINNING 
#C OF LINE "1.1 AGAIN, THIS SEQUENCE OF COMMANDS WOULD Have 

*C CONTINUED TO 00 THIS AD INFINITUM, THIS IS CALLED AN "INFINITE LOCPY, 

*C SINCE THERE IS NO WaY (NORMALLY) TO STOP EXECUTION. IN THIS CASEy, 

eC I PRESSED THE 'INTERRUPT' BUTTON ON MY COMPUTER, WHICH QAUSED A 

#C FOCAL ERROR, STOPPING THE EXECUTIONs AND PRINTING THE APPROPRIATE 

®C ERROR MESSAGES. WHaT IF He WANTED TO OUTPUT ONLY THE FIRST 10 VALUES 

*C OF 'X'y THEN CAUSE THE PROGRAM TO STOP? EXAMPLE! 

wh tad 


Ato S XexXess0 Bat (MetaddarT 
. 
ow 


HAT'S ALLEM, 1110 


C FOCAL*65 (V3D) 1BeJuL=77 
Add S X8XO150 2AFL CXeLOIA, EIT "THAT'S ALLEMIIIO 
2.48 T Le"TWE VALUE OF 2 "axa! 


*Co 

THE VALUE OF Xe 1.008 
THE VALUE OF Xe 2.908 
THE VALUE OF Xa 3.0088 
THE VALUE OF Xe 4.008 
THF VALUE OF Xx 5.008 
THE VALUE OF Xe 6.008 
THR VALUE OF Xe 7.000 
THE VALUE OF Xe 8.008 
THE VALUE OF X= 9.008 


THE VALUE OF Xe 18,008 
THATS ALLE 
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. 
@C THE "IF! STATEMENT WAS USED TO COMPARE THE VALUE OF 'X' TO THE 

©C NUMBER 10, AND AS LONG AS ty" WAS LESS THAN 49 ( (Xwig) LESS 

@C THAN ZERO}, THEN THE 'IF' COMMAND WOULD TRANSFER CONTROL BACK TC 

#C THE BEGINNING OF LINE 1,1, WHEN THE VALUE OF 'X' KAS EQuaL TO 1¢ 

#9 ( O64) EQUAL TO ZERO), THEN THE NEXT COMMAND IN SEQUENCE WAS E¥FCUTED, 
@C WHICH TYPED "THAT'S ALLI™, AND QUIT, 


BACK 70 THE 'DO' COMMAND, IT DOES NOT MaTTER WHEN OR WHERE THE 
CARRIAGE RETURN IS ENCOUNTERED ONCE CONTROL HaS BEEN TRANSFERREC TO THE 
SPECIFIC LINE TO "90", QUT WHEN IT OOES ENCOUNTER A CARRIAGE 
RETURN, THEN CONTROL RETURNS TO THE NEXT COMMANO IN SEQUENCE AFTER ThE 
"00' WHICH TRANSFERRED CONTROL. WHEN THE 'DO* COMMAND IS FOLLOKED BY 
A GROUP NUMBER (SUCH AS '4'), THEN FOCAL REMEMBERS WHERE TO COME BACK To 
AND TRANSFERS CONTROL TO THE LOHEST NUMBERED STEP MITHIN THAT GROUP, COMMAND 
ARE EXECUTED aS THEy ARE ENCOUNTERED, UNTIL A CARRIAGE RETURN IS ENCOUNTERED 
IN A LINE WHICH IS NoT PART OF THAT GROUP (t,e, IT HAS 4 OIFFERERT GROUP NUMBER 
AT THAT POINT, CONTROL 1S RETURNED TO THE PLACE REMEMBERED, AT ANY TIME, 
WHILE A 100! 1S BEING PERFORMED, IMMEDIATE RETURN TO THE PLACE 
REMEMBERED CAN BE FORCED BY USING THE "RETURN? COMMAND, SOME EXAMPLES! 


Xe2yt 


2 TO I“THE Value OF xek IS © 


on 
© FOCAL#65 (VSD) 16-JuL=77 
1.18 S MeNegid Qea5l (XeaOg TNT "THATS ALLEN, 1150 


2.10 T FeMTHE VALUE OF Xe "yx; ! 
2220 T TWTHE VALUE OF 2°18 @ ",KF2sd 


mat 


2.40 S MeXOLsD 2eANVET EXACT ATT MTHATTS ALL IM TTT 
ow 


C FOCAL#65 (VSD) 18-JuL=77 
2.18 S Mekotin 201 (XO dL.L0F MTHATIS ALLIMS TIE 


2.40 T Le"THE VALUE OF xB ax 


2720 T INTHE VALUE OF X92 TS am ".Xezt 


THE 
THE 


VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 
VALUE 


oF 
oF 


THATIS ALLE 


Xo 


X92 


Xo2 


Xe2 


Xe 


1.n0e 

IS s 1.020 
2.008 

Is 8 4.008 
3.008 

IS = 9.008 
4.008 

1S = 16.080 
5.008 

IS = 25,000 
6.008 

18's 36.008 
7.008 

Iss 49.2008 
8.080 

18 2 64,000 
9.900 

IS 84.008 
10.008 

IS * 409.008 
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. 
eM tad 

Ltd S XeorsD 2b1 CkaABNQSIATLIT MTHATIS ALLEN, 2110 
#215 1 (X9392.20R 

a 

C FOCAL#6S (V3D) 1B-JuLe77 


41a S MeXegso 251 CkeSIATLIT MTHATIS ALLEN 


2.12 T Le” THE VALUE OF Xe "4X 
2i15 1 (X=3)2,20R 
2:20 T INTHE VALUE OF Xe2 16 @ ",Xe2st 


os 
THE VALUE OF 
THE VALUE OF 


THE VALUE OF 


THE VALUE OF Xe2 IS = 4.008 
THE VALUE OF Xe 3,008 
THE VALUE OF Xe 4,908 
THE VALUE OF Xe 5.008 


tHaT's ALLY 


. 
oC IN GROUP 2, AT LINE 2045, THE "IF' STATEMENT TRANBFERED CONTRCL 
#¢ TO LINE 2,2 (OUTPUTTING Xe2) AS LONG AS X WaS LESS THAN 3. IN 

eC ALL OTHER CASES, AND IMMEDIATE "RETURN! FROM GROUP @ WAS EXECUTES, 
#C MORE EXAMPLES! 


Xe2040 2 


THE VALUE OF Xe = 20,008 


. 
#8 XetsD 2 

THE VALUE OF Xe 1.008 

THE VALUE OF X92 1S © 1.208 


. 
#8 X=2050 242 


THE VALUE OF Xe2 IS = 600,008 
. 
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#C ANOTHER 'D0' COMMAND GAN BE ENCOUNTERED ANYTIME AFTER 4 ‘DC! 

®C COMMAND HaS TRANSFERED CONTROL TO A LINE OR GROUP, FOCAL PROCESSES 

2c THIS 'DO' COMMAND, BY REMEMBERING THERE TO COME BACK TO, TRANSFERING CONTROL. 
wC TO THE LINE OR GROUP, AND WwEy CONTROL RETURNS, IT WILL gE TC TRE LAST 

*C PLACE REMEMBERED, THEN WHEN THE FIRST 'DO' IS OVER, CONTROL WILI RETURN 

#¢ TO THE NEXT COMMAND IN SEQUENCE AFTER THE FIRST "DOT. THUS "DOT 

*C COMMANDS CAN BE NESTE, THERE 1S NO IMPLIED LIMIT ON THE DEPTH TO 

SC WHICH FOCAL "DO! COMMANDS MaY BE NESTED, SOME EXAMPLES! 

4 


© FOcAL=65 (VSO) i8-JUL®79 
hlag S Xekegs0 291 CXS2LTLIT MTHATIS ALLS. ET0 
2.1¢ T Ys"THE VALUE OF X= 4x, 


2.45 1 ¢X93)2.2:R 
2.29 7 YWTHE VALUE OF X62 15» OXF2,T 


at 2.15 
2.15 1 (%93)2,210 SiR 
eS) TOIMTHE VALUE OF xe3 IS a "eXt3at 


ou 

© FOCAL@65 (V30) 18-JUL*77 

DAG S KEXOLIO QEL CKASIAVAIT STHATIS ALLIM) S170 
2.10 T Le"THE VALU OF Me MyXGT 

2.15 1 (Xe3)2.250 SiR 

2.20 T I"THE VALUE OF Xe2 IS a ".Xt2,T 


3.10 T INTHE VALUE OF X#3 18 # T)Xr3t 


*Go 

THE VALUE OF Xe Looe 

THE VALUE OF Xe2 15 2 ito 
THE VALUE OF Xe 2.008 

THE VALUE OF Xe2 IS = 4.008 
THE VALUE OF X= 3.008 


THE VALUE OF XeS IS = © 27,098 
THE VALUE OF X= 4,008 
THe VALUE OF XeS IS = 64.008 
THE VALUE OF Xa 5.000 


THE VALUE OF X+3 1S ® 425.009 
THAT'S ALLI 
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NOW, IF THE VALUE OF X I§ GREATER THAN, OR EQUAL TO 3, THE VALUE 
OF xt3 TS OUTPUT INSTEAD OF THE VALUE OF Xt2, THE 100" COMMAND, 
IS A VERY USEFUL FACILITY, ANO GREATLY INCREASES THE POWER 
OF FOCAL, THE 'IF' COMMAND PROVIDES A FACILITY TO PERFORM a 'GcTO! 
BASED PON THE VALUE OF AN ARITHMETIC EXPRESSION, THE 'ON' COMMAND 
PROVIDES THE aBILiTy YO PERFORM & ‘OO’ COMMAND BASED ON THE VALLE 
OF AN ARITHMETIC EXPRESSION, IT WORKS IN THE SAME MANNER AS THE TIFE 
COMMAND, GUT INSTEAD OF TRANSFERING COMPLETELY 70 THE SPECIFIEO LINE 
OR GROUP, 4 'D0' COMMAND OF THE SPECIFIED LINE OR GROUP 1S PERFCRMED 
AND, WHEN THE 'DO' COMES BACK, THE NEXT STATEMENT IN SEQUENCE IS 
EXECUTED eY Focal, 4S IN NORMAL SEQUENTIAL PROCESSING. SOME EXAMPLES! 


#E ALL 


© FOCAL#65 (V3D) 18-JuLe77 


S12 A TMNUNBERIM,X/ 110 (Xe7IZ 4202020316 ded 
. 


2,2 T "TAM AT LINE 2.4% 1 
02.2 TMT AM AT LINE 2.2%) 1 
e213 7 "TAM AT LINE 2.301 


© FOCAL®65 (V3D) 18-JuL#77 
LL A UMNUMBERIM Xe 110 (K-ToRed 2B 2SI6 ded 
2.10 T "TAM AT LINE 2.3", 


2.20 7 "1 AM AT LINE 2,2" 
2030 T "TAM AT LINE 2.3" 


*G 
NUMBERS 
1 aM AT LINE 2.4 
NUMBER 37 
1 aM AT LINE 2,2 
NUMBERS. 
To aM AT LINE 2.3 
NUMBE 


4 
1M AT LINE 204 


NUMBER 
1-39 @ 4,40 


A IONUMBER IX, 130 (X-792s40 212020516 2d 
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#¢ THE 'INTERRUPT' BUTTON KAS PRESSED TO GET OUT OF THE ABOVE 

@C INFINITE LOOP, A "pO" OF LINE 2.4 WAS PERFORMED IF THE VALUE OF 
#C X WAS LESS THAN 7, a 'DO' OF LINE 2.2 WAS PERFORMED IF THE 

#C VALUE WAS EQUAL TO_7, AND A 'O0' OF LINE 2.3 WAS PERFORMED IF ThE 
*C VALUE WAS GREATER THAN 7. fN ALL GASES, CONTROL RETURNED TO THE 
#C NEXT STATEMENT IN SEQUENCE WHICH FOLLOWED THE 'ON’ COMMAND, WORE 
#C EXAMPLES! 

. 

om 4.4 


ALA0 A DONUMBERI™.X, 250 (MoT BeL Z2W2TG Lek 
oH 


© FOCAL#65 (V3) 16«JUL=7F 
4,40 A IMNUMBERI" Xe $20 (Xa7TE LC 2BSTG Ad 
TOT AR AY LINE 3.077 


"1 AM AY LINE 2,20! 
"DAW AT LINE 


NUNBER TS: 
1 aM AT LINE 264 
NUMBER! 7 
Taw AT LINE Za 


1AM AT LINE 2.2 
1AM AT LINE 


NUMBER? 
1 aH aT GINE 2,3 


NUMBERS 
2-19 @ 1640 


A LPNUMBERE)X, £10 (X2792.202,2.316 ded 
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tc IN THIS CASE, ALL OF GROUP 2 WAS PERFORMED WHEN THE VALUE OF ¥ 


#C WAS EQ'AL TO SEVEN, 


LINE AND/OR GROUP NUMBERS MAY BE OMITTED 


"C (JUST AS IN THE 'IF* COMMAND), IN WHICH CASE CONTROL WILL SIMPLY 
#C PASS TO THE NEXT COMMAND IN SEQUENCE (JUST 4S IN THE 'IFY COMMAND), 


SC SOME EXAMPLES: 


Ma. 


1.10 4 EMNUNBERE 


ow 


Me 


(ho7 BANG 202,316 1, 


© FOCAL@63 (V30) 18=JuL»77 


tite 


2.18 
2.20 
2.30 


“Go 
NUMBER? 

1AM AT LINE 
NUMBERI7 

Ioan aT LINE 
tam aT LINE 
Tay aT CINE 


NUMBE! 


NUMBER: 2 


NUMBER? 


1AM AT LINE 
NUMBERI7 

1AM AT LINE 
TAM AT LINE 
TAM AT LINE 


NUMBER: 
1-19 @ 4,40 


2.3 


rs 
2. 
2. 


2.3 


TPNUMBERI™)Xs$30 (X97), 2026316 ded, 


"TAM aT LINE 2.4% 
"TAM at LINE 2,271 
"I AM AT LINE 2,3"Q! 


A LMNUMBER I) Xy 150 (X2795202,956 Lad 


' 
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. 

%C CONTROL SIMPLY PASSES TO THE NEXT COMMAND IN SEQUENCE (THE "GCTO'? 
®C WHEN THE VALUE OF X WAS LESS THAN SEVEN, THUS, NOTHING WAS DONE 

®C WHEN THE VALUE OF X WAS LESS THAN SEVEN, HERE IS A VERY POWERFUL 

®C FEATURE OF FOCAL. ANYPLACE A LINE NUMBER OR a GROUP NUMBER COULD 

©C NORMALLY BE USED IN A FOCAL STATEMENT, AN ARITHMETIC EXPRESSION CAN 
#0 BE USED THERE INSTEAD, THE ARITHRETIC EXPRESSION IB REGUCED TOA SINGLE 
© NUMBER OF THE FORM 'GG,SS' aND THAT VALUE IS USED AS THE LINE AND/OR 
®C GROUP NUMBER, THIS ALLOWS SUGH PARAMETERS TO BE VARIABLE QUANTITIES, 
#¢ NOTE! IF AN ARITHMETIC EXPRESSION IS USED, IT MUST NOT BEGIN KITH A 
°c DIGIT, THUS "Kes! 1S OK, BUT "6x" TS NOT. 


2c 
‘SC Some EXAMPLEST 
. 


o FOCAL#65 (VSD) 18-JUL©77 


2.18 TMT AM AT LINE 2.47 
2i20 T "I AM AT LINE 2.2" 
2032 T "TAM AT LINE 2.3" 
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. 
OL.1 A LAMNUMBERE™ Xe te 
. 

#8 Ye2.4 


2G 


0 (Xd4vET MCONTINUING ON 4.4", 1IG 4,4 


NUMBERI=1 
CONTINUING ON d42 
NUMBERS 


CONTINUING ON 443 
NUMBER! 


Tam AT LINE 244° 
CONTINUING ON 4,3 


NUMBERTY92,2 
CONTINUING ON 444 
NUMBER? 8 


1 aM AT LINE 2.2 
CONTINUING ON 444 


NUMBERS Ye? 
CONTINUING ON 4,4 
NUMBER? 

1AM AT LINE 2,4 
1 aM AT LINE 2, 
To aM AT LINE 2,3 
CONTINUING ON it 


NUMBER! 4 


CONTINUING ON 442. 
NUMBER t=d 
CONTINUING ON t41. 


NUMBER® 
Imi9 @ 4.40 


At, "NUMBER I" 


$50 CQeYET MCONTINUING ON 4.4", 196 44d 
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. 

#¢ THE "Yaz" ABOVE SIMPLY SET THE VALUE OF ‘Y* TO 2y INPUT THAT 
VALUE IN THE TASK" COMMAND, ASSIGNED IT TO THE VARIABLE 'X', THE 

#C VALUE OF THE EXPRESSION IN THE 'ON' COMMAND WAS THEN GREATER THAN 

#0 ZERO, SO FOCAL CONTINUED ON LINE 4.3, HOWEVER, THE VALUE OF Y ‘AD 

SC BEEN CHANGED TO 2, SO WHEN THE NEXT TINE A NUMBER WAS ASKED FOR, & 

#C ZERO WAS ENTERED, 'x' WAS SET TO ZERO, ANO THE "ORT COAMAND 

#C PERFORMED GROUP 'Y' (GROUP 2 IN THIS CASE), AND THEN RETURNED TC 

#C CONTINUE PROCESSING THE NEXT SEQUENTIAL STATEMENT, 

#C THE CAPABILITY TO ALLOW AN EXPRESSION TO DETERMINE THE VALUE OF 

CA LINE OR GROUP NUMER EXPANDS THE POWER OF Focal. 

. 


. 

°c SOMETIMES A GOMPUTER PROGRAM MUST REPEAT 4 PROCESS OVER AND OVER 
#C SEVERAL TIMES (REMEMBER, COMPUTERS ARE GOOD AT THIS}, We HAVE SEEN 
#¢ ONE WAY 70 DO THIS IN FOCAL ALREADY, A VARIABLE CAN BE USED AS & 

®C COUNTER AND GET INCREMENTED (OR DECREMENTED) EACH TINE THE PARTICULAR 
®¢ PROCESS I8 DONE. AN TIF’ OR TON’ STATEMENT CaN BE USED TO DETERMINE 
CIF THE PROCESS TS"To BE DONE AGAIN BY TESTING THE VALUE OF THE 

@C COUNTING VARIABLE, AN EXAMPLE FOLLOWS? 

. 

«EA 

oH 


0 FOCALe6s (VSD) £8-JUL=79 
W2L1 A TYNUNBERI "Go T 


VENTER BEGINNING, [NGREMENT, AND ENDING VALUES! "18, 1.Es1 
"A PROCESS WITH Bw "eB, 101 (CBRB+l WEIL. 2.2.210 


© FOCAL#65 (VSD) 18-JuL*77 


Ly10 A IMENTER BEGINNING, INCREMENT, AND ENDING VALUES! ",B,1,E)! 
126° T "A PROCESS WITH Be “aR, T/T COBHBeT)=EVL. 21.250 


. 
“60 


ENTER BEGINNING, 


PROCESS WITH 
PROCESS WITH 
PROCESS WITH 
PROCESS WITH 
PROCESS WITH 


60 


Be 
Be 
Be 
8: 
Be 


ENTER BEGINNING, 


PROCESS WITH 
ROCESS WITH 
PROCESS 41TH 
PROCESS WITH 


G0 


Be 
Be 
Be 
Bs 


ENTER BEGINNING, 


PROCESS WITH 
PROCESS WITH 
PROCESS WITH 
PROCESS KITH 
PROCESS WITH 


eer eeee 


Be 
Be 
Be 
co 
Be 


1.008 
2.088 
3.802 
4.008 
5-608 


INCREMENT, 


1-898 
3.098 
3.008 

3 


INCREMENT, 


1.008 
3.808 
5.820 
7.808 
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AND ENDING VALUES! 


AND ENDING VALUES? 


INCREMENT, AND ENDING VALUES: 4,1,5 


11267 


242648 


- PAGE 60 - 


THE ABOVE EXAMPLE ASKED FOR THREE VALUES, A BEGINNING ('B')y 

AN INCREMENT CI"), AND AND ENDING VALUE ('E'), THE COMMANDS AT LINE 

1.2 FORM A LOOP, WHERE THE ‘TYPE’ COMMAND IS EXECUTED, THE 

INCREMENT IS ADDED TO 'B' (AND BECOMES THE NEW VALUE OF '8'), AND THEN 'B" 
IS COMPARED TO "Ets THE ENDING VALUE. IF 18 LESS THAN, OR EQUAL TO, "EY 
THEN CONTROL GETS TRANSPERRED BACK TOLTNE i.2 AND THE VTYPE' CCHMAND TS 
EXECUTED AGAIN. IF THE VALUE OF 'B' IS GREATER THAN 'E', THEN CONTROL 
PROCEEDS TO THE NEXT STATEMENT IN SEQUENCE, WHICH STOPS THE PROGRAM, 

THIS TYPE OF LOOP IS OFTEN REQUIRED IN COMPUTER PROGRAMS, SO FOCAL 
PROVIDES a MORE COMPACT METHOD FOR DOING A LOOP OF THIS TYPE. THE 

‘FOR' GOMMANO ALLOWS THE PROGRAMMER TO PERFORM 4 LOOP IN THIS 

MANNER, LET'S FIRST COOK AY THE ABOVE EXAMPLE, BUT WITH a ‘FOR LOOP 
USED INSTEAD OF THE ‘TF! Loop. 


a 


1 A IMBEGINNING. INCREMENT, ENOING VALUFE ",8,1,€5FOR Xug,1,£1T "A PROCESS 
WITH Xe", Xet 


aw 


C FOCALS65 (V3D) 18-JuLe7? 


1.10 A I"BEGINNING. INCREMENT; ENDING VALUE! ",8,1,E3FOR Xe 


1 "A PROCESS 


960 


BEGINNING, INCREMENT, ENDING VALUE! 2.4.5 
A PROCESS WITH Xe = 1,080 

A PROCESS WITH X= 2,080 

ABROCESS WITH Xe S.OBT 

A PROCESS WITH Xe 4. 

A PROCESS WITH Xe = 5.08 

. 


“G0 a 


BEGINNING, INCREMENT, ENDING VALUET 
A PROCESS WITH Xe 
A PROCESS WITH Xe 
A PROCESS WITH Xe 
A PROCESS WITH Xe 
. 

co 


BEGINNING, INCREMENT, ENDING VALUES #3)2/3 
A-PROCESS WITH Xe +3.01 
PROCESS WITH Xs =2,008 
PROCESS WITH Xz =1,008 
PROCESS WITH X= 0,000 
OCESS WITH Xe = 1.080 
PROCESS WITH Xe 
PROCESS WITH X= 
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THE 'FOR’ COMMAND I$ FOLLOWED BY A VARIABLE NAME WHICH IS USEC 
AS THE COUNTING VARIABLE, UP TO THREE OPTIONS MAY BE SPECIFIED 
FOLLOWING THE 'a', THESE ARE BEGINNING VALUE TO BE ASSIGNED TO 
THE CO“NTING VARIABLE, THE INCREMENT THaT [S TO BE ADDEO ON TO THE 
COUNTING VARAIBLE EaCH TIME CONTROL IS RETURNED, AND THE ENOING VALUE 
WHICH DETERMINES WHEN THE LOOPING PROCESS WILL NORMALLY TERMINATE, 
THE EXACT OPERATION OF THE IFOR' COMMAND IS AS FOLLOWS. THE 
COUNTING VARIABLE (+X! IN q@OVE EXAMPLE) IS SET EQUAL To THE BEGINNING 
VALUE ('a! IN EXAMPLE}, THE INCREMENT AND THE ENDING VALUE ARE REMEMBERED 
BY FOCAL, AS WELL AS THE START OF THE NEXT STATEMENT ON THE LINE, 
a '00' OF ALL THE COMMANDS ON THE REST OF TWE LINE 15 PERFORMED, THUS 
CONTROL RETURNS WHEN & CARRIAGE RETURN 1S ENCOUNTERED, WHEN COKTRCL 
RETURNS, THE INCREMENT I$ ADDED TO THE COUNTING VARIABLE (THE INCREMENT 
MAY BE NEGATIVE, TO COUNT BACKHAROS), AND THEN THE COUNTING VARIABLE 1S 
COMPARED TO THE ENDING VALUE, IF THE COUNTING VARIABLE IS LESS THAN. 
OR EQUAL TO, THE ENDING VARIABLE (GREATER THAN OR EQUAL TO, IE THE 
INCREMENT WAS NEGATIVE), THEN ANOTHER '00' OF THE REMAINDER OF THE LINE Is PER 
OTHERWISE, THE ‘FOR LOOP HAS GONE TO COMPLETION, AND CONTROL 1S FORMED 
TRANSFERRED TO THE gEGINNING OF THE NEXT FOCAL LINE NUMBER IN SEGUENCE, 
NOTE THAT CONTROL IS TRANSFERRED TO THE NEXT LINE AND NOT TO THE NEXT 
COMMAND, SINCE THE NEXT COMMAND, AND ALL THOSE ON THE ResT OF ThE LINE 
WERE PART OF THE 'FOR! LOOP, IF THE INCREMENT 1S OMITTED (ONLY 2 
PARAMETERS SPECIFIEn)s THEN A VALUE OF 1 IS ASSUMED, 
SOME EXAMBLES! 


ry 


Xe1s2,121T Xat 
1,200 
3.000 
5.000 
7.000 
9.000 


Xe1,405T Xt 
1.080 
2.000 
3.080 
4.200 
5.008 
6.020 
7.088 
8.000 
9.200 
10.008 
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oF XaitveisdsT Xt 
12.008 
9.208 
8.000 
7-300 
6.380 
5.000 
4.008 
3.008 
2.008 
1.082 


48 Ye7 


OF Xen. YT Xe! 
1.000 
2.000 
3.000 
4.000 
5.080 
6.080 
7.008 


oF xaio,YoiBIT &, 
10.088 
ii.oed 
12.000 
33.000 
14.008 
15.000 
16.080 
17.005 


SINCE A ‘DOT OF THE REMAINDER OF THE LINE IS PERFORHED, AND SINCE 
DO'S MAY BE NESTEO, THEN THERE MAY GE A 'FOR' LOOP WITHIN & 
‘FORT LOOP. SOWE EXAMPLES! 


Mei, SIT MXN KS TIF Yad, SsT eVEM YE 
1-208 
1.038 
2.008 
3,008 
2.000 
1.000 
2.008 
3,002 
3.090 
1.008 
2.000 
3,000 
4,000 
1.200 
2.090 
3.328 
5.002 

= 18a 

ys 2,008 

3,098 
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. 
4C OR, WATCH THIS ONES 


. 
af Xe-esBsT "MLSE Yao. xe2iT # 


#C a ONE LINE FOCAL PROGRAM PLOTS 


A PARABOLAI 


. 
“ 
oc 
“C 
*c 
ac 
c 
‘ 

uc 
: 

“2 


zt 
02. 
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AS YOU WAVE SEEN, ANY OR ALL OF THE PARAMETERS IN THE 'FOR’ CCMMAND. 
CAN BE ARITHMETIC EXPRESSIONS (VERY POWERFUL), IT MAY SEEM, AT FIRST 
GLANCE, THAT THE Fact THAT THE 'FOR' COMMAND CAN ONLY 'DO' TKE CCMMARDS 
ON THE REMAINDER OF THE LINE IS A SERIOUS LIMITATION, NoT SC, BECAUSE 
ONE OF THOSE COMMANDS CAN BE A 'O0' COMMAND TO PERFORM aS Man¥ 

LINES OR GROUPS AS THE PROGRAMMER WANTS, AND CONTROL WILL RETURN 

TO THE COMMAND FOLLOWING THE 100", EXAMPLE: 


A 
2 T TAT LINE 2.4%! 


2 T SAT LINE 2.2m) 
3 TAT LINE 2.3% 


FoR X24,31D0 2 


LINE 244 

LINE 2.2 

LINE 2.3 =~. 
LINE 
CINE 
CINE 
LINE 
CINE 
CINE 


Xa1,59D 2,210 2.4 
LINE 2 
LINE 2 
LINE 2 
LINE 2 
CINE 2 
LINE 2 
LINE 2 
LINE 2 
LINE 

CINE 2, 
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*C A TFOR! LOOP MAY BE TERMINATED AT ANY TIME IF A 'RETURN' CCHMAND IS 
*C ENCOUNTERED, THIS RETURNS CONTROL BACK FROM THE 'DO’ OF THE REFAINOER 
*C OF THE COMMANDS AFTER THE ‘FOR’. THUS! 


coat 
* 


4,1 F Xed, 2057 "Xa" ,X, 201 (X06), 1.31 


#1.2 T "THE FOR LOOP Came HERE WHEN COMPLETEO"!!10 
#113 PF 

* 

ow 


G FOCAL®65 (VSD) 28-JuL*7? 


A640 F Meets XMM IX TET (x86 LS) 
1,20 7 "THE FOR LOOP CAME HERE WHEN COMPLETEOM! 110 


1630 R 
Gn 

xe 1,009 
Xe 2.907 
Xz 298 
rer i) 
xs 5,000 
Xe 6.96 


THE FOR LOOP CAME HERE WHEN COMPLETED 


. 
eT s 


XOr = 6,020 

. 

eC | WHEN 'X? WAS EQUAL TO 6, CONTROL WAS TRANSFERED TO LINE 1.3) 

eC WITHOUT HAVING SEEN A CARRIAGE RETURN, THE RETURN COMMAND RETURNED 
*C CONTROL IMMEDIATELY BACK TO THE ‘FOR’ LOOP, BUT EXECUTION WA 
*C WAS STOPPED IN THE 'FOR' LOOP, AND CONTROL TRANSFERED TO THE NEXT 
*C FOCAL LINE (IN THIS CASE 1,2), 

. 
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FOCAL ALLOWS FOR CERTAIN SPECIAL OPERATIONS TO BE PERFORMED WHICH 
TRANSCEND NORMAL ARITHMETIC OPERATIONS, THESE OPERATIONS ARE ACCOMPLISHED 
THROUGH THE USE OF 'FUNCTIONS', A 'FUNCTION? IN FOCAL ALWAYS BEGINS 
WITH THE LETTER 'F! (HENCE VARIABLE NAMES CANNOT BEGIN WITH THE LETTER) 
AND HAVE A NAME (USUALLY S CHARACTERS) WHICH FOLLOWS THE 'F', A 'FUNCTIONT 
ALSO HAS AN TARGUMENTY LIST WHICH TS ENCLOSED IN PARENTHESES FOCLOKING 
THE FUNCTION NAME, SOME FUNCTIONS REQUIRE MORE ARGUMENTS THAN CTHERS, 
DEPENOING UPON THE OPERATION PERFORMED BY THE FUNCTIONS, IF A FUNCTION 
REQUIRES ARGUMENTS, THEN THEY ARE PLACED INSIDE THE PARENTHESES ANC 
ARE SEPARATED WITH COMMAS, A FUNCTION TAKES THE ARGUMENTS, PERFORMS 
A SPECIFIC OPERATION USING HEM, AND ALL FOCAL FUNCTIONS RETURN AS TKEIR 
VALUE A SINGLE NUMBER, A FUNCTION MAY APPEAR ANYPLACE IN AN ARTTHRETIC 
EXPRESSION THAT A NUMBER COULO APPEAR, THE ARGUMENTS TO A FUNCTION 
MAY BE ANY ARITHMETIC EXPRESSION, INCLUDING OTHER FUNCTION VALUES, LET'S 
LOOK AT A FEW SIMPLE FOCAL FUNCTIONS FIRST! 


TRE 'FABS? FUNCTTON TAKES ONE SURERTC ARGUMENT AND THE VALUE IT 
RETURNS 18 THE ABSOLUTE VALUE OF THE ARGUMENT, EXAMPLES: 


OY FABS (#3301 
3.008 


OT 2+FABS( aS) 0! 
5.008 


FaBs(B) a! 
8.006 


oT FABS(@2.5)42s1 
5.000 
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THE 'RINT! FUNCTION TAKES ONE NUMERIC ARGUMENT AND THE VALUE IT 
RETURNS IS THE ‘GREATEST INTEGER LESS THAN THE NUMBER. THUS, THE 
VALUE RETURNED WILL HAVE NO FRACTIONAL PART, THIS FUNCTION DOES NC 
ROUNDING (SEE 'FINR* BELOW) ON THE ARGUMENT, EXAMPLES! 


FINTC3, 75001 
3.008 


FINT(S.99) 01 
3.000 


FINT(#3.414) 01 
34.002 


FINT(5/2) 
2.208 


FABS(1#FINT(#3,142),1 
3.008 


THE 'FINR' FUNCTION TAKES ONE NUMERIC ARGUMENT, ROUNDS TO TE 
NEAREST WHOLE NUMBER, AND THEN PERFORHS THE "GREATEST INTEGER LESS TRAN 
THE NUMBER' OPERATION, EXAMPLES? 


FINR(3, 75001 
4.998 
FINR(S. 99004 
4.090 
FINTC#3.44) 01 
4,000 


FINR( #3414) 461 
~4.008 


FINR(*3,5)01 
4.008 


FINR(2.50a! 
3.000 


FINR(5/2)4¢ 
3.008 
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*c IT IS SOMETIMES USEFUL (FOR GAMES, SIMULATION, ETc.) TO HAVE THE 

*C CAPABILITY TO GENERATE PSUEDO=RANDOM NUMBERS, HOWEVER, WHEN OEEUGGING 
4C (THE PROCESS OF REMOVING MISTAKES) SUCH PROGRAMS, IT 1S NICE TO GET THE 
4C SAME SEQUENCE OF RANDOM NUMBERS EACH TINE WE RUN THE PROGRAM. bHEN 

*C THE PROGRAM IS THEN WORKING, WE WOULD LIKE TO BE AGLE TO GET & CIFFERENT 
#C SET OF RANDOM NUMBERS EACH TIME THE PROGRAM TS EXECUTED,” THE TFRAN? 

#C FUNCTION TAKES A SINGLE NUMERIC ARGUMENT, AND ALWAYS RETURNS AS ITS VALUE 
#C A PSUEDO=RANDOM FRACTION BETWEEN @ AND 4, IF THE VALUE OF 

®C THE ARGUMENT 1S GREATER THAN ZERO, THEN THE RANDOM NUMBER GENERATOR 

@C ROUTINE IS INITIALIZED 10 GIVE A FIXED SEQUENCE OF RANDOM 

®C NUMBERS, IF THE VALUE OF THE ARGUMENT 1S LESS THAN ZERO, THEN THE 

st RANDOM NUMBER GENERATOR IS ENITIALI@ED TO GIVE A RANDOM 

SEQUENCE (DIFFERENT EACH TIME) OF RANOOM NUMBERS, IF THE VALUE OF ThE 
ARGUMENT IS EQUAL To ZERO, THEN THE NEXT RANDOM NUMBER FROM THE SEQUENCE 
1S RETURNED, SOME EXAMPLES 


FRAN(L) 


THIS "SET! COMMAND CALLED THE "FRAN! FUNCTION WITH AN ARGUMENT 
GREATER THAN ZERO, WHICH INTTIALIZED THE RANDOM NUMBER GENERATOR TO A FIXEO 
#C (REPEATABLE) SEQUENCE, HOWEVER, THE VALUE RETURNED BY THE FUNCTION haS 
®C IGNORED, SINCE NO VARIABLE NAME SUBSTITUTION WAS INDICATED, 
@C MORE EXAMPLES! 
« 


. 
#FOR [21,4017 FRANCO). 

2.996 

2.408 

9.497 

0.687 

9.240 

0.658 

3.284 

5.593 

2.695 

0.244 


. 
FOR Tnts4007 FRANO GT 

2.533 

0.944 

8.863 

2.667 

0.743 

a.473 

2.239 

6.426 

a.ai@ 

2.588 
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#FOR [=1)120T FRANCS 
8.329 
e.e2t 
0.947 
3.789 
8.638 
3.953 
614% 
&.576 
0.642 
8.724, 


. 
#9 FRAN(L) 


* 
OF Tet,48sT FRANO SE 

5.998 

0,498 

9.497 

8.647 

3.240 

2.658 

2.284 

8.503 

4.695 

3.244 


#F Tet,1037 FRANC). 
2,533 
2.944 
0.862 
9.667 
8.743 
2.473 
0.239 
0.426 
2.414 
2.588 


Ted, 4037 FRANCE 
2.329 
2.023 
a.g47 
2.789 
2.638 
2.953 
a.144 
2.576 
2.642 
0.721 


. 
4 
“Cc 


* 
“Ss 


. 
e 

*c 
* 
°c 


ac 


* 
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NOTICE THAT THE SaME SEQUENCE OF RANDOM VALUES WAS OBTAINED AFTER 
AN TPRAN(A)? CALL WaS ISSUED, MORE EXAMPLES? 


FRAN(L) 
FRAN(@L) 


Ted,4047 FRAN GT 
0.257 
2.53 
0.495 
8.333, 
2.423 
2.153 
2.904 
2.058 
1.000 
creel 


A DIFFERENT SET OF RANDOM VALUES WAS OBTAINED AFTER CALLING 
'PRAN' ITH A NEGATIVE ARGUMENT, RANDOM NUMBERS WITHIN ANY RANGE HAY BE 
OBTAINED BY MULTIPLYING ANO/OR ADDING APPROPRIATE SCALING FACTORS TO THE 
FRACTION REYURNED BY TFRANY, FOR EXANPLE, IN ORDER TO OBTAIN RANOCR 
INTEGERS WITHIN THE RANGE OF 6-9 


121, 2017 FINTCFRAN() 40951 
7.998 
3.008 
2.008 
9.909 
6.009 
7-900 
7.008 
6.002 
8.008 
7.900 
o.gee 
2.08e 
1.0088 
e.0ee 
4.208 
3.080 
8.008 
4.098 
5.000 
4.008 
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*c SOMETIMES WE NEED TO SE ABLE TO OUTPUT 4NY CHARACTER HE KANT 

*C TO AN OUTPUT DEVICE, OR BE ABLE TO INPUT ANY CHARACTER We WANT TO FROM 

#C AN INPUT DEVICE, FOCAL HAS THO SPECIAL FUNCTIONS FOR THIS PURPCSE, THERE 
oC 18 4 THING CALLED ASCII (AMERICAN STANDARD CODE FOR INFORMATION 

#C INTERCHANGE) WHICH ,SSIGNS 4 NUMERIC VALUE TO Each OF THe POSSIELE 

*C CHARACTEP” (THERE ARE 128 THEM), FOR INSTANCE THE ASCII CODE FCR The 
*C CHARACTE 4! 18 65. THE ASCII CODES CAN BE FOUND IN ANY 

®C COMPUTER REFERENCE BOOK, THE 'FOUT' FUNCTION TAKES ONE NUMERIC ARGUMEAT 
#C IN THE RANGE 9-255, AND OUTPUTS THE ASCIT CHARACTER WHICH HAS TRAT NUMBER 
#C AS ITS CODE NUMBER, THUS ANY CHARACTER CAN BE OUTPUT WITH aN TOUT! FUNCTION 
#C IF THE PROGRAMMFR SUPPLIES {T'S ASCII CODE aS THE ARGUMENT, SOPE EXAMPLES 


#8 FOUT(6S) 
8 FOUTCOSIIT } 


. 
#F 198.2515 FOUTCOS*1) 
ABEDEFGHIUKLMNOPORSTUVUXYz™ 
* 


. 
*¢ HAVE YOU EVER WONDERED WOW YOU WOULD TYPE OUT A"? CHOUBLE SUUTET? 
#C HERE ARE SOME THINGS THAT DON'T WORK: 


#¢ HERE IS SOMETHING THAT DOES WORK (KNOWING THAT THE ASCII CODE NUMBER 
#C FOR A DOUBLE QUOTE 18 34) 

. 

. 

#8 FOUT(S4) 

. 

@F 121,425 FOUT(S4) 


Perey 
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*C FOCAL ALLOWS US To PRECEDE A SINGLE CHARACTER WITH A SINGLE QLOTE 

#C MARK, ANO THAT REPRESENTS a NUMBER WHOSE VALUE IS 

*C THE ASCII CODE FOR THE SINGLE CHARACTER, THUS, WE DON'T REALLY RAVE TO 
®C KNOW WHAT THE CODE FOR A CHARACTER 1S: 


aT tag! 
65.208 


eT Bet 
66.008 


aT tay 
34,008 


OF 120,2555 FOUTC AST” 

ABEDEFGHI JKLMNOPORSTUVWXYZ0 

. 

. 

*c THE 'FCHR' FUNCTION REQUIRES NO ARGUMENT, INPUTS ONE CHARACTER 

@C FROM THE INFUT DEVICE (ANY CHARACTER), ANO THE NUMERIC VALUE RETURNED 

®C AS THE VALUE OF THE FUNCTION 'S THF ASCIT CODE NUMBER FOR THAT CHARACTER, 
#C FOR EXAMPLE! 

. 


. 
© BeFCHRO 
ae 


THE USER TYPED THE CHARACTER ‘At FROM THE KEYBOARD. 
ere 

65.000 

A 


Let,2053 CCD) sFCRRT) 
THERE! 
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. 
*C THE USER TYPED THE CHARACTERS 'HI THERE!' FOLLOWED BY A CARRIAGE 
@C RETURN (THE 42TH CHARACTER), THE ASCII CODES FOR THESE CHARACTERS 
#C WERE STORED IN THE 'C! ARRAY, TO SEE THEM: 

. 

ats 


12¢ o= 14,208 
Coc 1)e 72,009 
Cac 208 73,308 
coe 3s 32,008 
Cae 40s 84,220 
Cee 5)e 72,200 
Car B= 69,908 
Coe 7)= «82,808 
Coc B= 69,008 
Cac 9s = 33,208 
Cows = 13,908 
. 


’ 
#C To WRITE THE CHARACTERS BACK OUT! 

. 

OF Ted, 1055 FOUTCCCI)) 

MI THERE? 

. 

*C TO SEE ONLY THE FIRST 5 CHARACTERST 
oF 121,548 FOUTCCCINT 

HI THe 


©S FOCAL HaS MORE POWERFUL FACILITITES FOR THE MANIPULATION OF ChARACTERS 
®C WHICH IS EXPLAINED IN DETAIL LATER, THE 'FOUT’ AND 'FCHR' FUNCTIONS 

*C ALLOW THE PROGRAMMER TO GET BY THOSE SEEMINGLY IMPOSSIBLE QUESTIONS 

eC SUCH AS "HOW CAN I INPUT/OUfPUT THIS STRANGE CHARACTERTW, 
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FOCAL HAS THE ABILITY TO TRANSFER INFORMATION TOs AND OBTAIN INFORS 
MATION PROM, VARIOUS DEVICES THAT THE USER MAY HAVE ATTACHED TO HIS 
COMPUTER SYSTEM, THE VARIOUS HARDWARE DEVICES ARE ASSIGNED AUMBERS BY 
THE FOCAL SYSTEM, THESE ARE POSITIVE NUMBERS IN THE RANGE OF 0127, 
THE PROGRAMMER MAY INDEPENDENTLY CHANGE WHICH DEVICE FOCAL 

18 INPUTTING FROM OR OUTPUTTING TO AT ANY GIVEN INSTANT, THROUGH THE 
USE OF THE 'FIOV' AND 'FOOV! FUNCTIONS, THE 'FIOV' FUNCTION STCRES 
AWAY THE CURRENT DEVICE NUMBER OF THE CURRENT INPUT DEVICE, THEN TAKES 
THE SINGLE NUMERIC ARGUMENT AS THE DEVICE NUMBER OF THE QEVICE TO MAKE 
THE CURRENTLY ACTIVE INPUT DEVICE, THE 'FODV! FUNCTION STORES AWAY 

THE CURRENT DEVICE NUMBER OF THE CURRENT OUTPUT DEVICE, THEN TAKES THE 
SINGLE NUMERTC ARGUMENT AS THE DEVICE NUMBER OF THE DEVICE TO MAKE THE 
QURRENTLY acTIVE OUTPUT DEVICE, FURTHER INPUT/OUTPUT WILL TAKE 

PLACE "SING THE NEW DEVICES UNTIL EITHER A DIFFERENT DEVICE 

18 MADE CURRENT THROUGH A NEW CALL TO 'FIDV'/*FOOV' OR a "RESTORE INPUT? 
(ABBREVIATED 'R 1") OR 'RESTORE OUTPUT! (ABBREVIATED 'R 0") COMVAND IS 
EXECUTED, WHICH RESTORES THE INPUT/OUTPUT DEVICE BACK To WHAT IT HAS 
JUST PRIOR-YO THE CaST TFYQV'/"FODV', INTHE FOLLOWING EXAMPLES, ASSUFE 
THaT THE CURRENT INPUT DEVICE 18 DEVICE NUMBER 3, ANO THE CURRENT CUTPUT 
DEVICE I8 DEVICE NUMBER S, 


IN ORDER TO WRITE MY FOCAL PROGRAM 7A AUTPUT OFVICE BF 


#S FOOVIBI WIR OD 
C FOCAL@69 (VID) 18+JuLe77 


@C IN ORDER TO OUTPUT SOME NUMBERS TO OUTPUT DEVICE Bt 


#F Tei,185S FONVESDIT 1,15R 0 
1.088 
2.080 
3.988 
4.990 
5,008 
6.208 
7.098 
3.000 
9.208 
19.088 
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* 

OF [21,4055 FOOVCOIET T415R 0 
1.206 
2.000 
3.000 
4.900 
5.009 
6.008 
7.002 
8.000 
2 


9 
19.008 


TO INP''T 40 CHARACTERS PROM INPUT DEVICE at 


*1.2.8 FlOva" 

e412 F Tetsd0ss CT) eFCHROD 
e135 RT 

‘ 

ow 


C FOCAL*65 (VSD) 18-JuLe77 


4.10 8 FIOV(S) 
1.20 F TeteiasS CCL aFCHRED 
130 AT 


ABEDEFGHI Je 
. 
Ts 


Ie a= 14,000 
cee id= 65,093 

C2¢ 2)s 66,090 

cae 32 67,208 

C21 4)s 68,200 

Cac $)= 69,008 

Co¢ 62 79,008 

coe 7s 71,209 

coe Bs 72,300 

Coe Oye 73,000 
Cecio)= 74,028 

. 

F Tet,4@55 FOUTCOCI)D 
ABCDEFGHIV® 

. 


SERASE ALL 
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. 
“C SOMETIMES IT IS NECCESSARY TO "INITIALIZE! A DEVICE gEFORE 17 

*C CAN BE USED To TRANSFER DATA, SOME DEVICES REQUIRE IT, OTHERS CON'T, 

#C FOR EXAMPLE, CASSETTES 00 REQUIRE INITIALIZATION 10 ALLOCATE BUFFER 

aC SPACE FOR DaTa STORAGE, ETC, BUT TELETYPES MAY NOT REQUIRE ANY 

eC INITIALIZATION IN ORDER TO BE USEO. (THE TELETYPE INTERFACE MIGHT, 

@C HOWEVER), ANYWAY, IT 18 Good FOCAL PROGRAMMING PRACTICE 

ac TO TINITIALIZE! ALL DEVICES BEFORE DATA TRANSFER TAKES PLACE. THIS 1S 
*S ACCOMPLISHED USING THE 'FINE' AND THE "PINOY FUNCTIONS, 'FINI' CALLS 

*C 4 CEVICE DEPENDENT ROUTINE WITHIN FOCAL TO INITIALIZE A GIVEN DEVICE 

®C FOR INPUT, 'FINO' CALLS A DEVICE DEPENDENT ROUTINE HITHIN FOCAL TO 

#0 INITIALIZE 4 GIVEN nEVICE FOR OUTPUT, THE DEVICE NUNBER OF THE DEVICE 
oS Is THE VALUE OF THE SINGLE ARGUMENT, SOME QEVIGES MUST jLSO BE ‘CLOSEOT, 
COR TOLD THAT INPUT/OUTPUT 18 OVER, $O THAT THEY 

C CaN FINISH ANY INCOMPLETED TRANSFERS (BUFFERED CASSETTE 1-0 18 ChE EXAMPLE 
#0 THE DEVICE CAN BE ‘CLOSED’ pY THE USE OF THE 'FCLI" FUNCTION IF THE 

oC DEVICE WAS INITIALIZEO FOR INPUT, OR THE 'FcLO’ FUNCTION IF THE DEVICE 
#0 WaS INITEALIZe0 FOR OUTPUT, THESE FUNCTIONS ACCEPT & SINGLE 

®C NUMERIC ARGUMENT WHICH IS THE DEVICE NUMBER OF YHE BEVIce To ‘cicse', 

0 17 1S GOOD FOCAL PROGRAMMING PRACTICE TO 'CLOSEt 4 OEVICE 

#C WHEN ALL INPUT/OUTPUT TO THaT DEVICE HAS BEEN COMPLETED, SOME 

#0 EXAMPLES! 

. 

‘ 

cay 


S401 S FINO(A),FoDW(L) IWS FOLOCAIIR 0 
ow 

@ FOCAL #63 (VID) 18-JuL=79 

2.10 S FINOCL).FODVE4) IWS FOLOCAIER O 


‘ 
*C THE ABOVE SEQUENCE WILL INITIALIZE DEVICE NUMBER 4 FOR OUTPUT, 
#C SET DEVICE NUMBER 4 AS THE CURRENT OUTPUT DEVICE, WRITE THE ENTIRE 
#C FOCAL PROGRAM TO THE DEVICE, CLOSE THE DEVIGE, AND RESTORE THE 

#C OUTPUT DEVICE BACK TO WHATEVER IT WAS BEFORE THE fFooy', IF 

eG DEVICE 4 WAS A CASSETTE, THE ENTIRE FOCAL PROGRAM WOULD HAVE 

#C BEEN STORED ON THE CASSETTE. 


@ERASE ALL 
. 
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. 
8C THIS ALLOWS THE USER TO STORE FOCAL PROGRAMS AND DATA ONTO OTFER 
*C DEVICES THAT MAY BE CONNECTED TO HIS COMPUTER, THERE Is ONE DEVICE 
#C WHICH DOES HAVE SOMr SPECIAL SIGNIFICANCE TO FOCAL. THAT IS THE 

*C USER'S CONSOLE OEVICE (THE DEVICE THAT HIS CONSOLE KEYBOARD AND 

*C OUTPUT DEVICE, TELETYPE, CRT, ETC. IS CONNECTED TO), ALL ERROR 

*C MESSAGES ARE OUTPUT TO THE USER'S CONSOLE DEVICE. THE USER MAY 

*C CHANGE HIS CONSOLE DEVICE TO BE ANOTHER DEVICE ON THE COMPUTER 

4C SYSTEM WITH THE TFCON' FUNCTION. THIS FUNCTION ACCEPTS a SINGLE 

@C NUMERIC ARGUMENT AND THAT NUMBER (9427) BECOMES THE NEW 

#C CONSOLE DEVICE NUMBER, THAT DEVICE STAYS THE CONSOLE DEVICE UNTIL 
*C CHANGED BY THE USER WITH ANOTHER 'FCON' CALL, A NEGATIVE ARGUMERT 
eC To "FCONT DOES NOTHING, BUT RETURNS THE DEVICE NUMBER OF THE CURRENT 
*C CONSOLE DEVICE, SOME EXAMPLES! 

* 

. 

*C TO FIND OUT WHAT THE CURRENT CONSOLE DEVICE'S NUMBER Ist 


* 
#7 FOONC@db nt 
3.008 


. 
*C TO MOVE THE CONSOLE To DEVICE at 

+ 

*$ FCONCa) 

. 

#C THE CURRENT CONSOLE DEVICE IS DEVICE a, BECAUSE: 


. 
#7 FCONC mA) at 

2.000 
*C TO GO BACK TO DEVICE 3 AS THE CONSOLE: 


#S FCON(3) 
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FOCAL ALLOWS FOR THE PROGRAMMER TO MANIPULATE ‘BYTE! OR 

'CHARACTER' STRINGS, AND PROVIDES SEVERAL FUNCTIONS WHICH FACILITATE 
SUCH OPERATIONS, LET!S LOOK aT BYTE’ STRINGS FIRST, Up TO THIS 

POINT, ONLY NUMERICaL INFORMATION HAS BEEN READILY MANIPULATED, EVEN 
THE 'FOUT! AND 'FCHR' FUNCTEONS USEO NUMBERS TO 

REPRESENT THE CHARACTERS, THE MAIN PROBLEMS ARE THAT THE *FCUTY AND 
‘ECHR! FUNCTIONS GIVE THE USER LITTLE FLEXIGILITY IN MANIPULATING 
SERIES OF CHARACTERS OR 'BYTES', AND TO STORE A CHARACTER AS & 

NUMBER IN A NUMERTC VARIABLE NAME TAKES ABOUT 7 TIMES THE AMOUNT OF 
COMPUTER MEMORY STORAGE THAN MORE OPTIMAL METHODS, | THUS 

FOCAL ALLOWS THE USER TO DEFINE AND USE ‘BYTE! OR 'STRING! VARIABLES, 

AS THEY ARE CALLED, A TSTRING' VARTABLE TS A SEQUENTIAL SERIES 

OF 'BYTES' STORED IN THE COMPUTER'S MEMORY, IN GENERAL, NUMBERS 

IN THE RANGE @=259 MAY BE STOREO IN EACH 'BYTE' POSITION, IF ThAT NUMBER 
WERE TO BE AN ASCII CODE NUMBER, THEN A CHARACTER COULD ALSO BE 

STORED THERE, FOCAL DOES NOT CARE WHAT THE INFORMATION IS OR 

WHAT IT REPRESENTS, A tBYTE' STRING IS JUST a SERIES OF NUMBERS IN 

TRE RANGE D285, ‘SYTEY STRINGS ARE CIVEN VARIABLE NANES, JUST LIKE 
NUMERIC VARTABLE NAMES (Awz FOR FIRST CHAR, BUT NOT F. @e7 FOR SECOND CHAR, 
SEE EARLIER DISCUSSION OF VARIABLE NAMES), HOWEVER A ‘g? IS ADCED TC THE 
NAME IN ORDER TO IDENTIFY THAT VARIABLE NAME AS REPRESENTING A STRING 
OF BYTES, THUS 'A’ IS a NUMERIC VARIABLE ANO 'AS' IS A BYTE VARIABLE, 
ThE SUBSCRIPT USED WITH THE BYTE VARIABLE DETERMINES WHICH BYTE 

IN THE STRING IS BEING REFERENCED (THE FIRST gYTE IS SUBSCRIPTEC By THE 
SECOND iy THE THIRD 2) AND SO ON). A BYTE STRING MAY HAVE UP TC 250 
BYTES STORED IN IT, IF _A BYTE STRING HAS NOT BEEN ASSIGNED A LENGTH, 
(SEE_'FISL' FUNCTION, THEN THE ORFAULT LENGTH OF 72 BYTES 1S ASSIGNED 
TO IT THE FIRST TIME THAT [¢ IS REFERENCED. ALSO ALL BYTES IN a STRING 
ARE_INITIALIZED TO THE ASCII CODE FOR A BLANK (32)) WHEN FIRST 
INITYALT@E0. HERE ARE SOVE EXAMPLES WHICH ILLUSTRATE STRINGS IK THE 
MOST PRIMITIVE MANIPULATIONS, IF A STRING VARIABLE 15 USED IN aN 
ARITHMETIC EXPRESSION, THEN THE VALUE OF THaT VARTABLE I$ THE NUMERIC 
VALUE OF THE aYTE STORED THERE (0-255). IF A GWARACTER 1S STORED 

THERE, THEN THE NUMBER WILL BE THE ASCTI CODE NUMBER FOR THAT CHARACTER, 
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. 
#C SOME EXAMPLES: 
. 

oS 450) 865 

. 

“Ts 


AdS="A 

. 

. 

*C REMEMBER THE ASCII CODE NUMBER 65 REPRESENTS THE CHARACTER ‘a’. 


. 
#S AS(1)866 


Ts 


AdsemaB 

. 

#S AS(2)8IC 
ots 


Agsemaac 


. 
aT AS(ADeE 
66.898 
. 
oP as(2yat 
67.088 
. 
#8 FOUTCAS(A)) 
& 
. 
SF 1e0,2545 AS(1)S AST 
ats 


AQS=" ABCDEFGH! JKLHNOPORSTUVHX YB 
10( oe 26,208 
. 
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®C THE '$! OPTION OF THE "TYPE! COMMAND OUTPUTS THE BYTE STRING 

#0 ASSUMING THAT ASCIT CHARACTER CODE NUMBERS ARE STORED IN EACh BYTE 

#0 POSITION, NOTE THAT 'AS' AND 'AS(@)' ARE THE SAME THING, 

© NAMELY THE FIRST BYTE IN THE STRING WHOSE NaME 18 'A’ (OR tA" SINCE 

#0 THEY ARE THE SAME, AGAIN REFER TO FARLIER DISCUSSION OF VARIABLE NAMES), 


#0 IF WE WANTED TO COPY THE CHARACTERS IN 'AS' INTO ANOTHER STRING, 
eC SAY 'BS', A CRUDE WAY TO DO THAT HIGHT BED 


#F [ed,741S BSCLDSAS(TD 
. 
ons 


AQS=" ABCDEF GHIUKLMNOPOOSTUVHXYE 
10¢ o)= 72,008 

828+" ABCOEPGHI JKLMNOPQRSTUVHXY 
. 


* 

®C HE COULD INPUT 49 CHARACTERS INTO 'AS' BEGINNING AT SUBSCRIPT 31 
. 

. 

OF 13,1315 ASCT)BFCKRC) 

WELLO. OVERT 


. 
ats 


ADS=" ABCHELLO, OVER! OPORSTUVHXYE 
10 o= $4,000 

BOS="AGCUEFGHT JRLHNOPORSTUVHXYE 
. 
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. 
to TWESE APE VERY CRUDE MANIPULATIONS OF THE CHARACTERS, LET'S NOW 

#C LOOK AT SEVERAL FOCAL FUNCTIONS WHICH ALLOW MORE CONVENIENT MANIPULATICY 
#C OF CHARACTER STRINGS, THE 'FISL' FUNCTION ALLOWS THE LENGTH OF 

#0 A CHARACTER STRING TO gE OEFINED, THE FIRST TIME IT IS REFERENCED, IT 

#C ALLOWS THE PROGRAMMER TO SET ASIDE IN THE COMPUTER'S MEMORY ONLY THE 

#C THE NUMBER OF BYTES HE NEEOS (PROGRANHER MAY NEEO WORE, oR LESS, THAN THE 
#C DEFAULT VALUE OF 72), THE 'FISL' ACCEPTS AN ARBITRARY NUMBER OF ARGUMENTS 
*#C IN PAIRS, THE FIRST ARGUMENT OF THE PAIR IS A NUMERIC VALUE WHICH IS THE 
@C NUMEER OF BYTES TO SET ASIDE IN MEMORY FOR THE SPECIFIED STRING, AND TKE 
*C SECOND ARGUMENT OF THE PAIR 19 THE NAME OF THe STRING VARIABLE. ANY NUMBER 
#6 OF STRING VaRIABLE's LENGTHS MAY BE INITIALIZED IN ONE CaLL TO tFISLY 

#6 BY JUST PLACING HORE ARGUMENT PAIRS IN THE CaLLy IN ORDER FOR THE 'FISL! 
#C TO WORK, THE CALL MUST BE THE FIRST TIME THaT THE SPECIFIED STRING 

#C VARIABLE HAS GEEN REFERENCED IN THE FOCAL PROGRAM, | SOME EXAMPLES: 

‘ 


SERASE ALL 

ats 

#S FISL(16,48,20.88) 
Ts 

agss Li 


. 
*C THIS CALL SET ASIDE 46 CHARACTERS FOR 'a$! 4NO 20 CHARACTERS FOR ‘BS’, 
eC ALL THE BYTES WERE SET YO CONTAIN THE ASCIT CODE FOR A SPACE. 

#C THE STRINGS MAY BE USED NOW! 


oF 10,1555 ASCLR AST 
ats 


ags="ABCDEFGHIIKLANOPY 

Bogen * 

13( Os 16,008 

. 

. 

4 SO IF THE PROGRAMMER ONLY NEEDS A STRING WITH 5 BYTES IN IT, 

eC ONLy 5 BYTES NEED To BE ALLOCATED, “ONCE A STRING HAS BEEN ALLOCATEL, THEN 
4C IT'S LENGTH MaY NOT BE CHANGEO UNTIL THE VARIABLE LIST Is ERASEC, 

e 
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IT 18 USEFUL TO BE ABLE TO INPUT STRINGS FROM THE INPUT DEVICE, 
WHATEVER KIND OF OEVICE IT MIGHT GE, THE 'FSTI' FUNCTION ALLOWS THE 
INPUTTING OF CHARACTERS FROM THE INPUT DEVICE AND THEIR STORING INTO & 
STRING VARIABLE. THE 'PSTI' FUNCTION HAS TWO MANDATORY ARGUMENTS, AKO 
AN OPTIONAL THIRD ARGUMENT, THE FIRST ARGUMENT IS THE MAXIMUM 
NUMBER OF CHARACTERS TO INBUT, THE SECOND ARGUMENT IS THE 
STRING NAME AND SUBSCRIPT POSITION TO START PLACING CHARACTERS 
FROM THE INPUT DEVIcE INTO THE STRING, THE THIRD ARGUMENT, IF SUPPLIED, 
1S AN ASCII CODE NUMBER FOR A SINGLE CHARACTER, THIS CHARACTER 
18 CALLED THE "TERMINATION CHARACTER’, IF THE TERMINATION CKARACTER 18 
READ FROM THE INPUT DEVICE, INPUT STOPS ANO THE FUNCTION RETURNS, THE 
TESHINATION CHARACTER TS NOY STORED INTO THE STRING, BUT THE VALUE 
RETURNED BY THE 'FSTI' FUNCTION 1S THE ACTUAL NUMBER OF CHARACTERS THAT 
WERE TRANSFERED FROM THE INPUT DEVICE AND STORED INTO THE STRING, ia 
THE INPUT DEVICE 18 THE CONSOLE DEVICE, THEN AUBOUT PROCESSING FILL Take 
PLACE, ALLOWING THE THE 'RUBBING OUT* OF TYPING MISTAKES, 


SOME EXAMPLES: 


@ERASE ALL 


it E 
e102 S FISL(20,A8, 20,8813 EaPETL (2D 108. XT 
ow 


© FOCALS6S (VSD) 18-JuL=77 


110 £ 
Ll2eS FTSLC28, 43.20.85) 58 FeFSTITZD AS, TXT 


“G0 
HELLOX® 


ats 


AgS="HELLO 
Bose" ae 
ao ode = 5,008 

. 
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ec THE TERMINATION CHARACTER IN THE 'FSTI' WAS AN IX", WHICH MEANT THAT 
eC CHARACTERS WOULD BE TRANSFEREO FROM THE INPUT DEVICE (KEYBOARD IN THIS 
*C CASE) INTO 'AS' BEGINNING AT SUBSCRIPT 3, UNTIL EITHER 2g 

*C CHARACTERS HAVE BEEN TRANSFERRED, OR UNTIL THE TERMINATION 

#C CHARACTER 'X! HaS BEEN READ FROM THE INPUT DEVICE, THE VALUE RETURNED 
#C BY THE FUNCTION [8 THE ACTUAL NUNBER OF CHARACTERS TRANSFERRED ¢ TN THIS 
C CASE 5), THE TERMINATION CHARACTER 'X' IS NOT STORED IN THE STRING, 
@C MORE EXAMPLES 

: 

Gg 

ABCDEFGHIJKLMNOPORSTe 


ats 


AGS="ABCDEFGHIJKLMNOPORST! 
gose" ” 
20( @)= 20,000 

. 


6 

xe 

. 

Ts 

Agse" bd 
Base" * 


20¢ = Bae 
« 


. 
*C IN THIS CASE NO CHARACTERS WERE TRANSFERRED, BECAUSE THE TERMINATION 
*C CHARACTER WaS INPUT aS THE FIRST CHARACTER READ, 

. 


4G 
Bazxe 

. 

Ts 

agsenzzz ™ 
Bass" ¢ 


aoc ee 3,000 
. 


- PAGE 84 - 


aM 4.2 
4,20 S FISL(20,aS,20,08)58 ZarST1(20,A8(2), 1X) 
w 

C FOCAL#65 (V3D) 18+JuL=77 

ayia & 

1.20 S FISL(2ZO,AS/20,08958 BaPSTI(20/AS(2)4 1X) 
aG0 

Bcaxe 

. 

ws 

Agse” BCD ” 

Bose" " 


2O¢ ds | 3.08 
* 
. 


¢ THE CHARACTERS WERE STORED IN 'AS' BEGINNING AT SUBSCRIPT POSITICN 
4C 2 (THE THIRD CHARACTER), RUBOUT PROCESSING I$ ALLOWED ONLY IF THE 
#C CONSOLE IS THE INPUT DEVICE, EXAMPLE 


‘ 
aGo 

NOW IS\AN\ANTHIS TS A TESTX® 
. 

ots 

ABs2™ THIS TS A TEST = 
Basen " 


2c B= = 14,008 
. 
* 
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. 
«c THE 'FSTO! FUNCTION ALLOWS STRINGS TO BE TRANSFERREO EFFICIENTLY 

*C To THE OUTPUT DEVICE, THE ARGUMENTS TO THE 'FSTI' AND 'rSTO' ARE 

9G IDENTICAL, EXCEPT THAT IN 'FSTO' CHARACTERS ARE READ FROM THE STRING 

4C BEGINNING AT THE SPECIFIED SUgSCRIPT POSITION, TRANSFERRED TO ThE OUTPUT 
#C DEVICE, UNTIL EITHER THE MAXIMUM NUMBER HAVE BEEN OUTPUT, OR UNTIL TRE 

wC TERMINATION CHARACTER HaS GEEN READ FROM THE STRING, THE TERMINATION 

*C CHARACTER I$ NOT SENT TO THE QUTPUT DEVICE, THE VALUE RETURNED BY 

wc 'FSTO! IS THE ACTUAL NUMBER OF CHARACTERS TRANSFERRED To THE OUTPUT CEVICE, 


od 

*C NOTED IF THE FIRST ARGUMENT TO AN 'FSTI' OR ‘RSTO! 1S NULL 

c (A COMMA, BUT NOTHING BEFORE 17), THEN THE MAXIMUM 

* NUMBER IS INFINITE, IN THIS CASE A TERMINATION CHARACTER IS 
“c ADVISABLE, 

ac 


#C SOME EXAMPLES! 


ors 
Ags" THIS IS A Test = 
Bgsen " 


29 o) 14,008 


. 
#8 BaFSTOC4, A829? 
THIS® 


#C THE OUTPUT DEVICE. 
. 


. 
8 2eFSTO(14, 482) 
THIS 1S & TEST® 

. 


. 
oS AS(16)8'y 


THIS IS A TEST, 
a6) 
22¢ = 14.900 
. 


S$ B=FSTOUAS) 14) 
THIS 15 A TEST 


THIS IS A TEST, * 


231 Oe 16,000 
. 


FOUR CHARACTERS WERE TRANSFERRED FROM ‘A$’ BEGINNING AT SUBSCRIPT 2, TO 


*C _ THERE WAS NO MAXIMUM, SO CHARACTERS WERE TRANSFERED FROM ‘ag? TO 

C THE OUTPUT DEVICE UNTIL THE TERMINATION CHARACTER ',' WaS READ FROM THE 
OC STRING. THE TERMIN«TION CHARACTER WAS NOT DUTPUT, AND THE VALUE RETURNED 
#C BY THE FUNCTION (16) WAS THE NUMBER OF CHARACTERS ACTUALLY OUTPUT, 

#C THE 'FSTI' AND 'FSTO' FUNCTIONS ARE VERY EFFICIENT TIHE-WISE 


#C ANO SHOULD BE USED FOR INPU' 
. 


AND OUTPUT OF CHARACTER STRINGS WHENEVER POSSIBLE 
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SOMETIMES IT 15 USEFUL fO LOOK FOR A CERTAIN GROUP OF CHARACTERS 
To SEE If THEY ARE CONTAINED WITHIN A STRING OF CHARACTERS, LET 
#C US ASSI'ME WE HAVE THE FOLLOWING STRING VARIABLES! 
. 


A 


#3 STIG AS I) 

NOW IS THE TIME FOR ALL GOOD HEN TO COME TO THE AlD,© 
. 

®S FSTICBSs t+) 

MEN, ® 

ons 


AgSe"NOH IS THE TIME FOR ALL GOOD MEN TO COME TO THE AID 

Bas="MEN 

. 

"C THE CHARACTERS BETWEEN SU@SCRIPTS @ AND 2 INCLUSIVE ('NEN') IA ‘BS? 
*C CERTAINLY ARE A SERIES OF CHARACTERS, IF We WANT TO HAVE FOCAL 

* SEARCH 'AS' (a=71), LOOKING FOR THE CHARACTERS 'MEN', WE WOULD LSE ThE 
#C 'FSLKY FUNCTION, EXAMPLE! 


. 
O89 BaP SLKUBS TOY ESTE FAS EOS AS (TAY? 
. 


ors 


ADS="NOW IS THE TIME FOR ALL GOOD MEN TO COME TO THE AID 
HEN 
BIC 0): 29,008 
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. 
*C THE VALUE RETURNED BY THE FUNCTION IS THE SUBSCRIPT IN 'AS' WERE THE 
#C CHARACTERS 'MEN' WERE FOUND, THE 'FSLK' FUNCTION REQUIRES ThO FAIRS 

#C OF ARGUMENTS, THE FIRST PaIR DEFINES THE BEGINNING AND ENDING FCINT OF 
#¢ SOME CHARACTER STRING WHICH IS A SUBSET OF 4 STRING (IN THIS CASE 

@C "BS! FROM BYTE @ THRU BYTE 2), THE SECOND PAIR 

#C DEFINES ANOTHER BEGINNING AND ENDING POINT OF THE CHARACTER STRING TC 

#C SEARCH (IN THIS CASE 'AS' FROM BYTE B THRU BYTE 71), THE SECONE STRING 
#¢ IS SEARCHED, LOOKING FOR THr FIRST STRING TO gE FOUND SOMEWHERE WITHIN IT, 
#¢ IF THE FIRST STRING I8 FOUND, THEN THE VALUE RETURNED By THE FUNCTION 

#C IS THE SUgSCRIPT OF WHERE THE MATCH WaS ENCOUNTERED, IF 1T haS AQT 

#C FOUND, THEN THE VALUE <4 IS RETURNED AS THE VALUE OF THE FUNCTICK, 

ac THUS ONE GAN INPUT q STRING FROM THE KEYBOARD, CHECK TO sec IF IT IS 

#0 ONE OF A KNOKN SERIES OF WORDS, AND PROCEED ACCORDINGLY, 

#0 MORE EXAMPLES! 


#S ZeFSLK(BS,65(2),AS (25), AS 6409) 
ats. 


AGS="NOW IS THE TIME FOR ALL GOOO MEN TO COME TO THE AID 
BS="HEN 
#3¢ 2) 29,000 


. 
#S ZaFSLK(BS,BS,AS,AS( 71) 

. 

ars 

AQS="NOW IS THE TIME FOR ALL GOOD HEN TO COME TO THE AID 
Bgge"MEN 


20¢ = 13,009 


. 
©C THE "MU WaS LOCATED AT CHARACTER SUBSCRIPT G3 INT 
. 


#9 ZarSLK(BS,B$(2),AS(30) AS (40)) 
ots 


AS="NOW TS THE TIME FOR ALL GOOD MEN TO COME TO THE AIC 

BSe"MEN 

EO¢ g)= 94,500 

. 

. 

®C THE CHARACTER STRING 'MEN' WAS NOT LOCATED WITHIN 'AS’ SUBSCRIPTS 
*C 30-40, 

. 
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“c WE MILL NOW LOOK AT & VERY POWERFUL FACILITY OF FoCaL, THE ABILITY 

*C TO 00 INPUT AND OUTPUT TO STRING VARIABLES aS IF THEY WERE HARDWARE 

*C INPUT AND OUTPUT DEVICES, WE MAY SET A STRING VARIABLE (BEGINNING AT 

#C A CERTAIN SUBSCRIPT) TO BE OUR CURRENT INPUT DEVICE OR OUR CURRENT OUTPUT 
#C DEVICE WITH THE 'FIDV! OR "RODV' FUNCTIONS (DESCRIBED EARLIER), WHEN THIS 
*C 1S DONE, INFORMATION WILL BE READ OR WRITTEN TO THE STRING 

#C VARIABLE WITH ANY FOCAL COMMAND THAT DOES INPUT OR GUTPUT, SOKE EXAFPLES? 
. 

. 

aE A 

#3 FODV(AS)IT "THIS IS SOME INFORHATION":R 0 

ats 


ADS="THIS 18 SOME INFORMATION " 


SS FOOVEASTIY "WARY HAD A LITTLE CAME, TT™S FLEECE WAS RHTTE aS SNCWIR™O 
ats 


ADS="MARY HAD A LITTLE LAMB, I9'S FLEECE WAS WHITE AS SNOW " 
« 


#3 FODVCASTRITET MXXXTGR O 
ats 


AGS="/NAXXXHAD A LITTLE LAMB, IT'S FLEECE WAS WHITE AS SNOW " 


e 
4C WE CAN PICK UP WHERE WE LEFT OFF IN THE STRING BY CALLING THE 
40 "FIDV? OR "FOOV' WITH A NEGATIVE ARGUMENTT 

48 FOOVC@ADIT MYYY"IR 0 

ats 


ABS="MAXXXYYY A LITTLE LAMB, 17'S FLEECE WAS WHITE AS SNOW " 


#3 FODVCeAIIT "THIS IS NEATINR O 

. 

any 

ADSS"MAXXXYYYTHIS IS NEATIC, IT'S FLEECE WAS WHITE AS SNOW " 


~ PAGE 89 - 


*S FOOV(BSIIT X1,2621R 0 


ors 


MAXXXYYYTHIS IS NeAT!B, I'S FLEECE WAS WHITE AS SNOW 
4 


*S Foov(Bs(2)) 
ots 


2e3iR 0 


ADG="MAXXXYYYTHIS IS NEATIB, 17'S FLEECE WAS HHITE AS SNOW 
Besan4 B 
. 


#C IT IS NOT NECESSARY IN FOCAL TO HAVE SPECIAL FUNCTIONS TO CONVERT 
NUMBERS TO CHARACTERS AND CHARACTERS TO NUMBERS! 


esti) 
eTs 


AQS="MAXXXYYYTHIS IS NrAT!B8, 17'S FLEECE WAS WHITE AS SNOW 


ecs="4,6, 
. 


HS BSC3)aT, 


. 
ec WATCH THIST 
“ 


SS FIoveBSysASK X,YIR y 

as 

AQSE"HAXNXYYYTHIS IS NEATIG, IT'S FLEECE HAS HHITE AS SNOW 
arene 


Yor 0288 
. 
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. 
*C CONSIDER THIS: 
. 


*ERASE ALL 
* 
®S FOUVCAS)IT "SOME OATA IN A STRINGMIR O 


“Ts 


ADS=MSOME DATA IN A STRING . 
. 


. 
*C TO COPY "aS! INTO 'BStt 
. 


FIDVCAS) PSTIC72,B8)9R 1 
ats 
AGS="SOME DATA IN A STRING = 
BaS="SOME DATA IN A STRING . 


. 

THIS SEQUENCE SETS 'A$' aS THE CURRENT INPUT DEVICE, 4ND TKEN THE 
'PSTIY INPUTS 72 CHARACTERS FROMTHE CURRENT INPUT DEVICE AND STORES THER 
INTO 'BS', BEGINNING AT SUBSCRIPT Be 


CONSIDER THIS? 


. 
8S FODVICSIIT MT d6Xst",$5R 0 
* 


eTs 
AOS="SOME DATA IN A STRING * 
Base"SOME DATA IN-A STRING " 


GOSE"T 16X41 
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. 
*C NOTICE THAT SOME CHARACTERS 'T 4*X,!' HAVE BEEN PLACED IN 'CS' AND ThAT 
#C A CARRIAGE RETURN HAS ALSO BEEN PLACED THERE (RIGHT AFTER THE '$'),, 

*C NOTICE THAT THE CHARACTERS IN 'CS' FORM A VALID FOCAL COMMANG SEGUENCE, THE 
*C SEGENCE WOULD BE PERFECTLY VALIO IF IT WERE TYPED IN BY THE 

*C USER OR STORED WITH a LINE NUMBER PRECEEDING IT, WELL, YOU GUesseD It, IT 
*C 18 POSSIBLE To STORE & VALIO SEQUENCE OF FOCAL COMMANDS IN a BYRING 

#C VARIABLE, TERMINATE IT WITH A CARRIAGE RETURN (IT MUST BE TERMINATED WITH 
®C THE CARRIAGE RETURNI!), AND HAVE FOCAL PERFORM A '00' OF THE COMMANDS 

*C STORED IN THE STRING, WATCHE 

* 

“Do cs 

1 

. 

47 K5.0318 Xa5 


. 

Do cs 
6.088 

aF X23,950 6 
1.208 
2.098 
3.008 
4.008 
5.000 
6.098 
7.008 
8.000 
9.208 
10.090 
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#C THIS 1S HEAVY STUFF, FOCAL (SINCE IT IS 4 PURE INTERPRETER) COESN'T 
*C CAvE WHERE TT GETS COMMANDS FROM. AS LONG AS THEY ARE A SERIES CF 

4C CHARACTERS. THUS FOCAL CAN READ COMMANDS FROM HARDWARE DEVICES, STRINGS, 
#C OR WHATEVER, FOCAL IS ALSO VERY COMPACT, Focal CAN BE TOLD A LCT IN 
“C4 VERY LITTLE SPACE. 1 DIGRESS SLIGHTLY TO PRESENT A SHORT PROGRAM 

eC WHICH WILL-INPUT A NUMBER FROM THE KEYBOARD, AND OUTPUT IT'S BTAARY 
#C REPRESENTATION. THIS PROGRAM USES A PROGRAMMING TECHNIQUE CALLED 

"CG 'RECURSION' (FOCAL 18 FULLY RECURSIVE), PUTTING ON THE WIZARO HATE 

. 

. 

aE 

. 

#1,1 4 P"NUNBERIMNED 1,296 d44, 

S12 § D(TaTeLianeZOusPINTUNZRS FO COWIESDIT OCITIS tated 

arse 

. 

ow 


G FOCALS65 (VSD) 1BeJile77 


2.20 A TMNUMBERIPNID 1.236 2.7 
1120 S OC Teled}eN-2eNeFINTONZZI10 CONPS,257 OCIDES Te 


#60 


NUMBER 5 
133 

NUNBER?4 

120 

NUmBer sae 
1038 

NUMBER t1ey 
118120 
NumBERss024 
1coaneoenaD 
NUMBER 1023 
FERerecttey 
NUNBERT 52a 
PrEErEETeS 
NUMBER: 255 
Frepreeey 
NUMBER®2 

10 

NumBe?? 

ti9 @ LAB 


A TONUMBERE"NID 4,216 toa 
’ 


. 

*C IF YOU THINK THAT'S NEAT, REFER TO THE 'FSBR' USER DEFINED FUACTION 
eC FACILITY, OR THE ‘SOFTWARE PRIORITY INTERRUPT SYSTEM? (TFPIC*) CESCRIBED 
#C LATER ON. 
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. 
* SOMETIMES IT IS USEFUL FOR THE PROGRAMMER TO DEFINE HIS OWN 

*C LINE OR GROUP AS A FUNCTION, THEN WHENEVER He WANTS THaT 

*C PARTIC GAR FUNCTION INVOKED, HE USES THE 'FSBR FUNCTION 

®C TO INVOKE THE FOCAL COMMAND LINE OR GROUP, ONE NUMERIC aRGUMENT 

#G CaN BE PASSED TO THe ROUTINE AND THE ROUTINE CAN RETURN a SINGLE NUMERIC 
@C VALUE FOR THE VaLUE OF fHE 'FSBR’ FUNCTION, THE ARGUMENT IS PASSED IN 

*C a PARAMETER INDEPENDENT FASHION (HEAVY COMPUTER SCIENCE JARGON), 

*C THERE ARE ACTUALLY THO ARGUMENTS TO THE 'FSBR! FUNCTION, THE FIRST 

*C IS 4 LINE NUMBER OR GROUP NUMBER OF THE LINE OR GROUP TO 'pO" as 

* THE FUNCTION (YES, aN ARITHMETIC EXPRESSION CaN BE WERE), THE SECOND 

eC IS THE NUMERIC ARGUMENT TO BE PASSED TO THE FUNCTION. THE 

*C PRECISE SEQUENCE IS a$ FOLLOWS. THE CURRENT VALUE OF The VARTAELE "8? 

*C IS PUSHED ON THE STack, THE VARIABLE '8' IS SeT EQUAL TO THE NUPERIC 

#C ARGUMENT PASSED TO THE FUNCTION (SECOND ARG OF 'FSBR'), a 'OC' IS PERFORMED 
#C OF THE SPECIFIED LINE OR GROUP (THE FIRST ARG OF 'FSBR'), WHEN THE 'DO' 

#C RETURNS, THE VALUE RETURNED BY THE FUNCTION IS THE CURRENT VALUE OF ‘a’, 
*C AND THE OLO VALUE OF 'g1 18 RESTORED FROM THE STACK, VARIABLE NAMES CAN 
#C BEGIN WITH THE CHARACTER fai, HENCE Tag'~"87" WaY BE US€o aS VALIO. 
#C VARIABLE NAMES IN FOCAL PROGRAMS. HOWEVER, BY CONVENTION, A FOCAL PROGRAMM 
#C SHOULD ONLY USE 'g' VARIAGLES IN A USER-DEFINED FUNCTION IN CROER TO 

#C BE ABLE TO WRITE USER DEFINED FUNCTIONS WHICH ARE INDEPENDENT OF CALLING 
*C ROUTINE, SOME EXAMPLES! 

° 


Cay 


. 
999.1 8 88/2 

* 

C1 HAVE MADE & VERY SIMPLE FUNCTION WHICH WILL TARE THE ARGUMERT 
*C ANO DIVIDE IT BY To, f NOW CALL IT VIA 'FSBR'E 


° 
eT FS8R(99,10),1 
5 


. 
aT x5.03 


. 
OFOR [et 1047 LoFSBRCGOL TIT 
1.008 © 2,508 
2.082 1,.00g 
3.060 
4.208 
5.080 
6.00P 
7-028 
8.290 
9.000 
16.088 
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*C LET'S MAKE 4 FUNCTION WHICH CONVERTS DEGREES TO RADIANS? 


999.1 S &e803.1415926/188 
oW 


© FOCAL#65 (V3D) s6-uuLe77 
99.10 S 88403.1445926/189 


‘ 
. 
$F Xe9,45) 36057 XsFSBR(99,XI 51 
2.008 © 6,000 
45.008 3.785 
92.008 = 4,571 
{35-008 2,356 
jao.ooe 
325.008 
270.008 


. 
OF X90, 45, 36057 855X,%5,05,FSER(99,X) 


3 oeo00 
45 8.78548 
92 4.57079 


7352, 336i9 
1803414189 
225 3.92699 
2704474238 
315 5.49778 
362 628318 

. 

aT 55.03 

’ 
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. 
40 LETIS WRITE 4 USER DEFINED FUNCTION WHICH TAKES THE SQUARE 
ROOT OF THE ARGUMENT GIVEN [T, THIS FUNCTION USES THE COHMON 
'NEWTON®RAPHSON' ITERATION, 


cary 
99.1 S 8108, 882,639, 000801 
999.2 1 ((89 (8082) /2) 0R5eF ABS ( 8m k2581/8) 199.2 


© FOCALW65 (V3D) 18eJuLe77, 


99.10 S 8188, 802,832, 00000% 
99.20 1 ((88(8482)/2) Oa SHFABS (8=62485/8) 99,2 


. 
#c YES, THAT'S THE WHOLE THINGE. LET'S TRY { 
* 


* 
oT x5.25 


* 
#T FSBR(99,49),1 
7.00008 


° 
eT FSBR(99 2) ot 
1.44424 

. 


. 
FOR Xet,10s7 %5,X,X8,05,FSBR(O9,X) 1 
1 1.00600 

2 1.4a4an 
3, 1.73205 
4 2.00000 
5 2.23607 
6 244949 
7 2.64575 
8 «2. 82843 
9 = 3, Ba609 
c 3.16228 


oT X5.03 
. 


. 
©C  AND-IF YOU OON'T CIKE HY SQUARE ROOT ROUTINE, JUST WRITE 
#C YOUR OWN AND USE IT INSTEAD OF HINE!, 

. 


c 
“c 
ac 
ac 
°C 
“0 
ot 
74 
oc 
oe 
“Cc 
°C 
“c 
4 


ER 
me 

98 
99 


c 


99. 
9. 


‘ 
* 
aT 
. 
at 
. 
eT 
i 
. 
@ 
F 
THE 
THE 
THE 
THE 
THE 
THE 


THE 
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THE 'FSgR' FUNCTION IS RECURSIVE (HEAVY COMPUTER SCIENCE JARGON. 
AS ARE MOST FOCAL FUNCTIONS, THIS IMPLEMENTAION OF FOCAL DOES KOT 
HAVE ANY INTRINSIC FUNCTIONS TO DO SUCH THINGS AS TRIGONOMETRIC 
FUNCTIONS (SIN, COSINE, LOG, EXP, ARCTAN, ETC,), HOWEVER, THESE 
FUNCTIONS CaN BE MANE AVAILABLE BY SIMPLY WRITING ROUTINES IN FECAL 
TO PERFORM THE NECESSARY CALCULATIONS, THEN CALL THEM FROMTHE 
APPLICATION PROGRAM WITH 'FSBR' CALLS, FOCAL ROUTINES To 00 ALL 
THE COMMON TRIG FUNCTIONS (USING 'FSBR') ARE GIVEN IN AN APPENDIX, 
ALSO A ROUTINE TO OUTPUT A NUMBER IN 'E' FORMAT (SCIENTIFIC ROTATION) 
1S aLSO SHOWN THERE, IN MANY CASES, THESE ROUTINES ARE SMALLER IN 
SIZE (BUT SLOWER) THAN THE EQUIVALENT ROUTINES WRITTEN IN ASSEMBLY 
LANGUAGE, HERE TS aN EXAMPLE OF A RECURSIVE 'FSGRT FUNCTION TO CALCULATE 
THE FACTORAL OF A NUMBER, THE FACTORAL OF 'Nr IS DEFINED MATHEMATICALLY 
TO_BE_® NO(Na1)e(Nw2)@(NOS)0,,.,850201, 1,E, THE PROOUGT OF ALL THE 
INTEGERS UP THRU 'N', THE EXAMPLE? 


ASE ALL 


1 1 (198)99,25R 
+2 8 BRGePSBR(99, 


FOCAL #63 (V3D) L8eutiL=77 


12 1 (2e8299,25R 
20 S QedeFSAR(99, 464) 


FSBR(O9IS)E 
6.008 


FSBR(99.4I Ot 
24.008 


FSBRCV9.5I 
29.960 


Xs7,eL/417 "THE FACTORAL OF %y Xo" 1S "PFSBREOG/XI yt 
FACTORAL OF 18 §240,000 


FACTORAL OF 1S 720,008 
FACTORAL OF 1s 120,000 
FACTORAL OF IS 24,000 
FACTORAL OF 1s 6.008 
FACTORAL OF 1S 26008 
FACTORAL OF 18 1.008 
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FOCAL HaS A POWERFUL FACILITY AIMED AT THE EXPERIMENTER AND 
REAL-TIME USER, A FOCAL PROGRAM CAN BE INTERRUPTED BY SOME 

EXTERNAL EVENT (A DOOR OPENING, A PHONE RINGING, A BURGLAR ENTERING) 

AND A "00" OF 4 SPECIFIED FOCAL LINE OR GROUP PERFORMED, AND CONTROL 
AUTOMATICALLY RETURNED 70 THE INTERRUPTED ROUTINE, FUTHERHORE, 

THE VARIOUS INTERRUPTING OEVICES CAN BE ASSIGNED & PRIORITY, ANC THE 
HIGHEST PRIORITY EVENT WILL pe THE FIRST SERVICED, THE SECONC HIGHEST 
PRIORITY WILL BE THE NEXT SERVICED, AND SO ON, FOCAL Does nCT 

KNOW (OR CARED WHAT CAUSEO THE EVENT TO HAPPEN, BUT OEALS WITH EVENTS 

AS BITS (BINARY O1GITS) THaT ARE SET IN AN TEVENT BYTE’ STORED IN THE 
COMPUTERS MEMORY, THE EVENTS CORRESPOND TO BIT POSITIONS 

IN THIS BYTE FROM RIGHT TO LEFT (RIGHT IS EVENT 4, LEFT 1S EVENT 8), 
EVENT @ IS THe HIGHEST PRIORITY, AND EVENT 4 1S THE LOMeST, 

WHENEVER FOCAL PROMPTS KITH A ‘#! CHAS NOTHING 10 00), IT DISABLES 

THE ABILITY To BE INTERRUPTED, THUS, THE FOCAL PROGRAMMER 

MUST ENABLE FOCAL To LOOK af THE EVENT BITS ANO INTERRUPT THE FOCAL 
PROGRAM WHEN ” GIVEN EVENT (OR GROUP OF EVENTS) HAPPENS, SOMEORE 

MUST HAVE ALSO WRITTEN AN ASSEMBLY LANGUAGE ROUTINE TO SeT THE 
APPROPRIATE BITS IN THE EVENT BYTE WHEN THE PARTICULAR EVENT ACTUALLY 
HAPPENS, THE PROGRAMMER USES THE 'FPIC’ FUNCTION TO MANIPULATE THE 
‘SOFTWARE PRIORITY INTERRUPT SYSTEM', THE 'FPIC' FUNCTION TAKES 

AN ARBITRARY NUMBER OF ARGUMENTS, IN PAIRS, ANO USES THEM IN CONTROLLING 
TWE SOFTWARE INTERRUPT SYSTEM, THE FIRST ARGUMENT OF A PAIR IS A 
SOFTWARE EVENT NUMBER ({=8), “THE-SECOND ARGUMENT IS-& FOCAL LIKE OF 
GROUP NUMBER (ARITHMETIC EXPRESSTONS ARE ALLOWED MERE) TO "OC! KHER 

THE SPECIFIED EVENT GIT GETS SET. THE 'FPIC' CALL ENABLES FOCAL TC 
CHECK THE EVENT BIT EACH TIME A NEW FOCAL COMMAND IB RETRIEVED, ANO IF 
THE BIT IS SET, A 'pO' OF THE SPECIFIED LINE OR GROUP WILL BE PERFORMED, 
WHEN THE 100" RETURNS, FOCAL WILL CONTINUE THE INTERRUPTED STATEMENT, 
Focal ALSO CLEARS THE EVENT BIT BEFORE TT PERFORMS THE TOOT, IF 
SEVERAL EVENTS (BITS) HAVE @EEN ENABLED WITH THE 'FPIC' FUNCTION, 

THEN FOCAL WILL PERFORM THE 'DO' FOR THE HIGHEST PRIORITY ONE FIRST, 
THEN WHEN THAT "00" RETURNS; THE NEXT HIGHEST PRIORITY, ETC, TrE 

VALUE RETURNED BY THE 'FPICt FUNCTION IS 4 NUMBER BETWEEN 

@ AND 255 WHICH WILL NAVE BITS SET FOR CACH EVENT THAT HaS BEEN ENABLED, 
THUS, TF EVENTS 4 ANO 3 HAVE BEEN ENABLEO, a VALUE OF 5 WILL BE RETURNED, 
IF THE FIRST ARGUMENT OF A PAIR IS @, THEN THE SECOND ARGUMENT IS A 
NUMBER e253 WHICH 1S TO INDICATE WHICH EVENTS ARE TO BE ENABLEt. THIS 
ALLOWS THE SOFTWARE INTERRUPT SYSTEM TO BE TEMPROARILY O1SAGLEO 

(BY 'FPIC(D,0)"), AND ENABLED AGAIN CIN THE EXAMPLE BY 'FPIC(D)S)"7, 

IF THE FIRST ARGUMENT IS 6 AND THE SECOND I§ NEGATIVE, THEN THE 'FPIC! 
FUNCTION QOES NOTHING BUT RETURN THE ENABLE BYTE (AS IT aLWAYS COES 
NOTE THAT ALL ACTIVE EVENT CHANNELS SHOULD BE ENABLEO WITH AN 'FPIC 
CALL WHICH SPECIFIES THE LINE OR GROUP TO ‘DO’ FIRST, BEFORE THEY ARE 
DISABLED/ENASLED LATER, SINCE IT IS NECESSARY FOR FOCAL TO 

STORE THE LINE NUMBER OR GROUP NUMBER IN INTERNAL TABLES, 
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WELL, AFTER THAT LONGeWENDED EXPLANATION, LET'S LOOK AT AN 
EXAMPLE, LE? US SAY THAT 4 SWITCH CONNECTEO TO A OOOR WILL GENERATE 
AN_INTERRUPT TO THE COMPUTER AND A ROUTINE WILL SET EVENT BIT 4. 
ALSO, LET US SAY THaT A THERMOCOUPLE CIRCUIT CONNECTED To THE 
Roast IN THE OVEN WILL GENERATE AN INTERRUPT TO THE COMPUTER ANC A 
ROUTINE WILL SET EVENT BIT 2 WHEN THE TEMPERATURE IN THE ROAST ~~ 
REACHES A CERTAIN VALUE. ALSO, LET US SAY THAT A PUSHBUTTON WILL 
GENERATE AN INTERRUPT AND SET BIT 7 WHEN THE BUTTON IS PUSHED, 

HERE IS AN EXAMPLE FOCAL PROGRAM WHICH WILL ENABLE FOCAL TO SENSE 
THESE CONDITIONS, INTERRUPT THE PROGRAM (WHICH 1S AN INFINITE LCOP), 
AND INFORM THE USER THAT THE EVENTS HAVE HAPPENED, 


a 


wl 
0412 S FPIC(L 94429217007) 
e113 S XOX 1 
97.4 T ISOMEONE 18 AT THE DOORINID 99 


995.1 7 EMINTERRUPT ON LEVEL 7, 1M STOPPING THIS PROGRAM. "1150 
e9g.a TM Xe aXe! 

. 

ow 


- 
92.1 T INTHE ROAST HAS REACHED TEMPERATURE! "3D 99 
T 


© FOCAL#65 (VSD) 18-JuL=77 

2.10 £ cacao 

1.20 $ FPIC(L,9112,92,7097) 

4130 S KexessG 1.3 

1.10 T I"SOMEONE 18 AT THE DOORIMID 99 


92.10 T INTHE ROAST HAS REACHED TEMPERATURE!" 


97,10 T ININTERRUPT ON LEVEL 7, I'M STOPPING THIS PROGRAM. "11s0 


oo.ag TM Xe MX 


. 
“Co 


SOMEONE IS AT THE DOOR! Xe 2097.000 
THE ROAST HAS REACHED TEMPERATURE X= 3064,000° 
INTERRUPT ON"LEVEL 7, [7M STOPPING THIS PROGRAH, 
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° 

$C THE PROGRAM ENABLED FOCAL TO 'DO' GROUP 94 IF EVENT 1 WAS SETy 

#C 92 IF EVENT 2 WAS SETs ANO 97 JF EVENT 7 WAS SET, THE PROGRAM 

4#C THEN ENTERED aN INFINITE LOOP INCREMENTING THE VARIABLE *X', WHEN 
€ SOMEONE OPENED THE DOOR, GROUP 91 WAS PERFORMED, WHEN THE ROAST 
@C REACHED TENPERATURE, GROUP 92 WAS PERFORMED, WHEN THE USER PRESSED 
#C THE PUSHBUTTON, GROUP 99 WAS PERFORMED, AND THE PROGRAM WaS STOFPEC, 
#C LET'S SEE WHAT HAPPENS WHEN THE DOOR 1S OPENED AND THE ROAST HAS 
*C REACHED TEMPERATURE AT THE SAME TIME, 

. 

. 

#60. 


THE ROAST HAS REACHED TEMPERATURE! X= 1827,808 
SOMEONE IS AT THE DOOR: Xe 1927.d00 
INTERRUPT ON LEVEL 7. 1'M STOPPING THIS PROGRAH, 


NOTE THaT GROUP 92 WAS PERFORMED FIRST, SINCE THE ROAST IS 
ASSOCIATED WITH A HIGHER EVENT NUMBER, HOWEVER, AS SOON AS 

GROYP 92 RETURNED, THE DOOR INTERRUPT (GROUP 94) HAS PERFORMED 
IMMEDIATELY (25 EVIDENCED BY THE FACT THAT "KX DIO NOT GET INCRFENTEDT. 
WHEN THE PUSHBUTTON WAS PRESSED. GROUP 97 WAS PERFORMED AND THE 
PROGRAM WaS STOPPED. THE POSSIBLE USES OF THIS FACILITY ARE ALFCST 
UNLIMITED, 
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WE WILL NOW LOOK AT A FEW REMAINING MISCELLANEOUS FUNCTIONS, 
THE 'FECH' FUNCTION ALLOWS THE USER TO ENABLE/DISABLE THe AUTOMATIC 
ECHOING OF CHARACTERS READ FROM THE INPUT DEVICE, ‘FECH(O)* ENABLES 
THE ECHOING, aND 'FECH(4)' DISABLES THE ECHOING, 


THERE TS A FOCAL FUNCTION WHICH IS SPECIFIC [0 THE CONSOLE 
DEVICE, THIS FUNCTION !S IN FOCAL PRIMARILY BY POPULAR DEMAND, 
SINCE iT 15 USEFUL FOR GAMES, ETC, THE "FCUR? FUNCTION ALLOWS THE 
PROGRAMMER TO POSITION THE CURSOR ON CRT TYPE TERMINALS (IF HE FAS A 
CRT TYPE TERMINAL) TO A GIVEN ROW AND COLUMN ON THE SCREEN, HITHCUT 
DISTURBING OTHER INFORMATION ON THE SCREEN, THE 'FCUR’ FUNCTION 
TaKES TWO ARGUMENTS, THE FIRST TS THE ROW NUMBER (BN) TO HOVE TO, 
THE SECOND 1§ THE COLUMN NUMBER (G-N) TO MOVE TO, THE USER 
MUST PATCH HIS CRT SPECIFIC ROUTINE INTO FOCAL SEE THE APPENDIX TO 
FINO OUT HOK TO DO THIS, 


FOR THOSE HACKERS (WaT {NSIST ON SUCH THINGS, THE 'FMEN" FUNCTION 
ALLOWS THE PROGRAMMER TO READ ANO/OR WRITE INFORMATION FROM/INTC 
STORAGE LOCATIONS IN WIS COMPUTER'S MEMORY, THE 'FMEM" FUNCTION 
IS ALKAYS GIVEN TWO ARGUMENTS, THE FIRST 1S THE PAGE NUMBER (3-255) 
ANO THE SECOND IS THE LOCATON (0-255) WITHIN THAT PAGE, THESE 
TWO VALUES FORM THE ADDRESS IN THE MEMORY, THUS TO ACCESS 
MEMORY ADDRESS 0120 (WEXAOECIMAC), THE ARGUMENTS WOULD BE 
1 (FOR THE PAGE NUMBER) ANG S2 (FOR THE LOCATION WITHIN THaT PAGE). 
(20 HEX @ 32 DECIMAL). IF ONLY 2 ARCUMENTS ARE SUPPLIED, THE 
VALUE RETURNED BY THE ‘FEM? FUNCTION IS THE DATA VALUE STORED IN THAT 
MEMORY ADDRESS (A NUMBER ~255), IF ANOTHER ARGUMENT FOLLOWS, THEN 
THE VALUE OF THAT ARGUMENT (2255) 18 DEPOSITED (WRITTEN INTO) THE 
MEMORY ADORESS, AND Th LUE RETURNED BY THE 'PMEMT FUNCTION IS THE 
DaTa VALUE THAT WAS STORL. "RE BEFORE THE NEW VALUE WaS DEPOSITED, 
SEVERAL DEPOSITS MAy BE MADE . | ONE CALL TO 'FMEN', BY GIVING SEVERAL 
TRIPLES (GROUPS OF THREE) IN ONE CALL, EACH ONE SPECIFIES A PAGE NUMBER, 
LOCATION IN THE PAGE, AND DATA TO BE STORED THERE, THE VALUE RETURNED 
WILL BE THE DATA BYTE THAT WAS IN THE LAST LOCATION BEFORE TKE KEW 
DATA BYTE WAS STORED THERE, THIS TS USEFUL FOR THOSE TWEEKS OF FERORY 
WHERE SEVERAL THINGS MUST BE THEEKED BEFORE CONTROL JS RETURNED TO 
THE FOCAL PROGRAM, (YES, IT IS POSSIBLE TO MAKE CHANGES TO THE FOCAL 
SYSTEM WITH A FOCAL PROGRAM, YOU SHOULD BE VERY CAREFUL, AND KAOW 
WHAT YOU ARE DOING.) 


FMEM(L 320 T 
92.208 


FMEM(L)32,16)5¢ 
92.008 


FMEM CL S200T 
16.008 
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HERE IS A COMPLETE LIST OF ERROR CODES AND THEIR MEANINGS 


-37 BAD OR HISSING ARGUMENT IN A STRING FUNCTION 
-36 STRING VARIABLE REQUIRED HERE 
-35 STRING VARIABLE NOT ALLOWED HERE 
“34 1/0 ERROR ON OUTPUT DEVICE 
“33 ARGUMENT MISSING IN FUNCTION 
32 CURRENTLY NOT USED 

“3 “URITE" OF NON-EXISTENT GROUP 
-30 UNRECOGNIZABLE FUNCTION NAME 
-29 PARENTHESES ERROR IN FUNCTION 
-28 "MODIFY" OF NON-EXISTENT LINE 
-27 “DO" OF NON-EXISTENT GROUP. 
-26 "DO" OF NON-EXISTENT LINE 
-25 SYNTAX ERROR IN "IF" OR "ON" COMMAND 
-24 "ERASE" OF NON-EXISTENT LINE 
-23 1/0 ERROR ON INPUT DEVICE 
22 “URITE" OF NON-EXISTENT LINE 
21 GOTO" NON-EXISTENT LINE 

-20 BAD LINE NUMBER ON INPUT 

“19 UNKNOUN INTERRUPT REQUEST 

“18 UNRECOGNIZABLE TRAP CODE 

“17 RESET BUTTON PRESSED 

“18 DEVICE NUMBER OUT OF RANGE 
“15 USELESS "FOR" LOOP 

“14 BAD TERMINATOR IN “FOR™ 

“13 NO "=" IN "FOR" 

“12 BAD VARIABLE NAME 

it FUNCTION ILLEGAL HERE 

10 NOT USED AT THIS TIME 

“9 NOT USED AT THIS TIME 

“8 FLOATING POINT OVERFLOW 

~7 OPERAND MISSING -- EVAL 

~6 PARENTHESES MISMATCH -- EVAL 
“5 OPERATOR MISSING -- EVAL 

“4 ILLEGAL LINE NUMBER 

3 UNRECOGNIZABLE COMMAND 

-2 ILLEGAL GROUP ZERO USAGE 


a LINE TOO LONG 


eee eeess 


rT 
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TRIG FUNCTIONS IMPLEMENTED VIA TFSBR! FUNCTIONS AS FOCAL ROUTINES, 


C FOCALS65 (V3D) 18-JuL*77 


93.01 
93.10 
93.20 
93.30 


v4.04 
94.10 
94.20 
94°30 


95.02 
98.10 
98.20 


96.61 
96.10 
96.20 


97.01 
97.10 
97.20 


98.01 
98.10 
98.20 


99.01 
99.10 
99.20 
99.30 


COSt9S) C SINTOS.3 

(8420, 04993.2i5 &RR/250 FSIS AMZH+2=1IR 
45166 92/26804/240896/7201R 
8*4.57080-810 93 


ASINIVS 10 ACOSTOS.S 

(492—.04)94.255 Bma/(FSBR(99L98)+FSBR(99/4-6) 010 O4iS SaZedIA 
BE A6813/ 64, 07508056807/22.41R 

9418 det.570796~8iR 


ATAN 
(80Z~ L195. 258 Teg/TLSFSERTIV AFZHL)) ID GSTS SBM 
Petre ester tly) 


St01/109205C TAN 
(802e 0196.28 828/250 POTS BRZOG/ (LHe e261 IR 
826 0813/3+895/7 5487/3125 


Loc 

(81 202,040861)97.25S gaFSBRCV9/E)IO 9715 BezegTh 
BE(BuL)/CA+L11S BH20C G0803/3615/5467/7) 

EXP 

(Er 2s 01)98.275 82d/2i5 OBIS BEarZER 

$2 10R+R42/24813/66414/240895/120+8 16/728 

SQUARE ROOT 

Bia8sS e235 832, 090004 


B2MAL/AST CFABS (8208) ~4083)99.31S 88(8082)/216 9962 


€ FSBR(97,ARG) OUTPUTS ARG IN 'E' FORMAT 


92.10 


8409 
(8192.12,98.9.00.2 

MoTIS bend 

(198)98,551 (8~.89999999)90.716 98.9 


TIS 88/1016 90,2 
1-198 88401016 90,2 
KA .05,48, MEM KL, AER 
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1 WILL NOW GIVe SOME USEFUL INFORMATION FOR THOSE PEOPLE hr HAVE 
AN ASSEMBLY LISTING OF FOCAL AN WANT TO HACK THINGS INTO IT, THESE TIFS 
ARF BY NO MEANS FXHAUSTIVE, BLY COVER THE MORE COMMON THINGS. 


THERE 1S A LOCATION ON PAGE @ERO LABELED 'DELSPL' WHICH FOCAL LCOKS 
AT To DETERMINE HOW IT SHOULO WANOLE RUBOUT PROCESSING ON THE CCNSCLE 
DEVIce, STORE A ZERO THERE IF YOU HAVE 4 DEVICE HICH IS NoT 4 CRT (SUCH 4S 
A TELETYPE, DECHRITER, ETC.), IF YOU HAVE A CRT WHICH WILL BACKSPACE THE 
CURSOR WHEN SENT 4 'BACKSPACE’ CHARACTER (ASCII CODE 18 OCTaL), TKEN STCRE 
ANY KON@ERO VALUE IN 'DELSPL! TO ENABLE FANCY CRT MODE RUBQUTS, KRERE 
FOCAL TEATS! THE CHARACTER OFF THE SCREEN BY SENDING THE CONSOLE ThE 
SEQUENCE OF CHARACTERS, 'BaCkSPACE'’, ‘SPACE’, 'BACKSPACE'. 


THE EVENT BYTE FOR THE SOFTWARE PRIORITY INTERRUPT SYSTEM IS 
THE BYTE STORED aT THE LABEL 'EVMASK', ANY INTERRUPT ROUTINE CAN SET BITS 
IW THIS 8YTE TO CORRESPOND TO 4 FOCAL EVENT. (THE LSB IS EVENT 4, THE ¥SB 
19 EVENT 8), 


THE IRO DISPATCH VECTORS HUST BE SET TO POINT TO THE ADDRESS 
'INTSRV! SO THAT FOCAL ERROR MESSAGES (WHICH USE THE '@RK' INSTRUCTION) CAN 
BE FIELOED PROPERLY, ONE EASY WAY TO 00 THIS 15 JUST PUT THE CODE TO SET 
THEM IN THE CONSOLE DEVICE INITIALIZATION ROUTINE, WHICH FOCAL CALLS THE 
VERY FIRST THING WHEN IT STARTS (SEE CODE AT THE LABEL "FOGAL’ 


YO AOD 1-0 DEVICES TO FOCAL, WRITE AN ASSEMBLY LANGUAGE ORIVER 
ROUTINE WHICH KNOKS HOW TO TALK TO THE DEVICE. THE ROUTINE MUST KAVE 
ENTRY POINTS TO INITIALIZE THE DEVICE FOR INPUT (IF AN INPUT DEVICE) AND 
INITIALIZE THE DEVICE FOR OUTPUT (IF AN OUTPUT DEVICE), THE ROUTINE MUST 
ALSO HAVE ENTRY POINTS TO CLOSE THE DEVICE, IF THE DEVICE TS AN TKPUT 
DEVICE, THERE MUST BE aN ENTRY POINT WHERE FOCAL CAN CALL THE DRIVER IN ORDER 
TO_INPUT AN ASCII CHARACTER FROM THE DEVICE. FOCAL WILL CALL TRE ROUTINE 
WITH A 'JSR! INSTRUCTION, THE ROUTINE KILL RETURN (VIA 'RTS') WITH THE 
DATA BYTE IN THE ACCUMULATOR, THE 'C* BIT MUST BE CLEAR IF NO ERRCRS WERE 
ENCOUNTEREO ON INPUT, IF THE 1¢1 BIT IS SET UPON RETURN FROM THE ROUTINE, 
FOCAL ASSUMES THaT AN INPUT ERROR OCCURED, AND ISSUES AN ERROR PESSAGE, 
{SFE CODE AT 'READC' IN FOCAL), IF THE DEVICE Is AN OUTPUT DEVICE, THEN 
THERE MUST BE AN ENTRY POINT WHICH FOCAL WILL CALL WITH THE DATA BYTE TO 
BE OUTPUT IN THE ACCUMULATOR REGISTER. THE ROUTINE WILL BE CALLEO WITH 
A1JSR) INSTRUCTION AND WILL RETURN (VIA 'RTS') WITH THE 'C) BIT CLEAR IF NO 
ERRORS WERE ENCOUNTERED, AND THE 'C' BIT SET IF aN ERROR OCCURRED, THE 
ADDRESSES OF THESE ENTRY POINTS ARE PLACED IN THE DEVICE OTSPATCH TABLES 
(SEE LABEL MIDSPH'), THE RELATIVE POSITION IN THE TABLE DETERMINES THE 
DEVICE NUMBER OF THAT DEVICE, IF MORE THAN FIVE DEVICES ARE INSERTED, THE 
VALUES OF IDEVM! ANO 'ODEVM! MUST BE UPDATED. THE ONLY PLACE THEY ARE 
REFERENCED I$ AT 'CHKODV? AND ICHKIOV', 
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THE INITIAL DEVICE NUMBER OF THE CONSOLE DEVICE IS STORED IN 
THE LOCATION 'CONDEV', STORE a DIFFERENT NUMBER THERE IF YOU WANT YOUR 
CONSOLE OEVICE TO BE SOMETHING OTHER THAN DEVICE NUMBER g. THIS ONLY 
MATTERS WHEN FOCAL FIRST STARTS UP, SINCE YOU CAN CHANGE TO ANOTHER 
DEVICE WITH THE *FCON' FUNCTION. 


ADDITIONAL COMMANDS May BE ADDED TO FOCAL BY PLACING THE FIRST 
CHARACTER OF THE COMMAND (MUST BE OIFFERENT FROM EXISTING COMMANDS) IN 
"OoMTaB' TABLE (THERE 18 SPACE FOR HACKERS), ANO THE ADDRESS OF THE 
ROUTINE TO PROCESS THE COMMAND IN THE 'COMADH’ AND 'COMADL? TABLES. 
LOok AT THE COOE AT 'PROCi! To SEE HOW FOCAL DISPATCHES TO COMMANDS 


NEW ASSEMBLY LANGUAGE FUNCTIONS HAY BE ADDED TO FOCAL BY ENCODING 
THR FUNCTION NaM€ (USUALLY $ CHARACTERS) INTO ITS 'HASH' Cone (SEE CODE 
AT 'EFUN' TO DETERMINE HOW HASH CODE IS GENERATED) ANO STORING THE KASH 
CORE IN THE 'FUNTABY TABLE, THE ADDRESS OF THE ROUTINE TO HANDLE THE, 
FUNCTION IS INSERTED INTO THE 'FUNADH' AND 'FUNADL' TABLES, LOOK aT THE 
COME AT 'FUNG', AND ANY OF THE STANDARD FOCAL FUNCTIONS TO SEE KOW THE 
ROUTINE 18 CALLED, NOTE? THE FIRST ARGUMENT OF A FUNCTION IS ALREAGY 
EVALUATED FOR YOU AND IT'S VALUE IS STORED IN THE FLOATING POINT 
ACCUMULATOR, LOCATED ON PAGE EERO AS 'FACS'. 1F YOUR FUNCTION I9 TC 
RETURN A VALUE, IT SHOULD STORE & NORMALTSED FLOATING POINT NUMBER IW 
'Faca' PRIOR TO RETURNING {BY JUMPING TO 'FPOPA', 


WEED CAREFULLY THE WARNING PRINTED ABOVE SUBROUTINE 'PUSHJ'. 


THE RANDOM NUMBER SEED GETS INITIALIZED TO RANDOMNESS BY LCADING 
THE BYTE FROM PAGE ERO LOCATION ‘HASH’, SOME ROUTINE (GENERALLY KEYBOARD 
INPUT ROUTINE) ON YOUR SYSTEM NEEDS TO OCCASIONALLY STORE JUNK IN ThaT 
LOGATION (SEE 'FRAN'), USUALLY THE KEYBOARD INPUT ROUTINE INCREMENTS 
LOPATION ‘HASH! aS IT's WAITING FOR THE USER TO STRIKE A Key ON THE 
KEYBOARD, THUS THE VALUE WILL BE ESSENTIALLY RANDOM. 


SONE KEYBOARDS "SEND DIFFERENT CODES FOR THE 'ESCaret ANDsu® 
ALTNODE KEYS, FOCAL NORMALLY LOOKS FOR OCTAL CODE S$_AS THE SEARCE 
OPTION IN THE "MODIFY! COMMAND, IF YOU HAVE A STRANGE KEYBOARD, YCU 
GAN PATCH THE VALUE AT 'HNXTC? @ A FEW TO WHATEVER ASCII CODE YOU KANT 
IT To BE 


IF YOU HAVE & LOCAL COBY DEVICE FOR A CONSOLE (SOMETIMES) TRCORRECTLY) 
CALLED HALF QUPLEX), THE CORRECT WAY TO HANDLE THIS JS IN YOUR DEVICE 
SERVICE ROUTINE, BUT a QUICK HACK 18 TO 'NOP' THE 'JSR PRINTC" LOCATED 
AT 'REAOCE! © ONE INSTRUCTION, 


IF YOU IMPLEMENT A CURSOR ADDRESSING ROUTINE FOR YOUR CRT 
CONSOLE DEVICE, PLACE THE ADORESS OF THAT ROUTINE AS THE ADDRESS OF THE 
"JSR CONCUR' IN THE 'FCUR? FUNCTION (SEE LABEL 'FCUR'), 
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<<< NOTES >>5> 


